Verified Commit 2cad9920 authored by Merlin Göttlinger's avatar Merlin Göttlinger 💧
Browse files

Don't compare strings with ==

parent 45f5b043
Pipeline #3116 passed with stages
in 9 minutes and 5 seconds
......@@ -1164,8 +1164,8 @@ and parse_rest symtab ts =
ENFORCES (ls, f1)
| "},(" -> let mvs = movelist ")]" in
let f1 = parse_rest symtab ts in
NENFORCES (TList.nub (==) (ls @ List.map agent_of_move mvs), mvs, f1)
| _ -> A.printError mk_exn ~t ~ts "\"}]\" or \"},(\" expected but got: "
NENFORCES (TList.nub (fun s t -> compare s t = 0) (ls @ List.map agent_of_move mvs), mvs, f1)
| _ -> A.printError mk_exn ~ts "\"}]\" or \"},(\" expected"
)
| A.Kwd "<{" ->
let (t,ls) = agentlist [| "}>"; "},(" |] in
......@@ -1174,8 +1174,8 @@ and parse_rest symtab ts =
ALLOWS (ls, f1)
| "},(" -> let mvs = movelist ")>" in
let f1 = parse_rest symtab ts in
NALLOWS (TList.nub (==) (ls @ List.map agent_of_move mvs), mvs, f1)
| _ -> A.printError mk_exn ~t ~ts "\"}>\" or \"},(\" expected but got: "
NALLOWS (TList.nub (fun s t -> compare s t = 0) (ls @ List.map agent_of_move mvs), mvs, f1)
| _ -> A.printError mk_exn ~ts "\"}>\" or \"},(\" expected"
)
| A.Kwd "{>=" ->
let (n, denom, s) = boxinternals false "}" in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment