Commit 2f81fc68 authored by POTTIER Francois's avatar POTTIER Francois

Fix [occurs] to return a Boolean, not an option.

parent 45fd3b70
......@@ -49,7 +49,9 @@
| None -> true \
| Some _ -> false \
let OCCURS_FUN(term) x t = \
FILTER_FUN(term) (fun y -> Atom.equal x y) t \
match FILTER_FUN(term) (fun y -> Atom.equal x y) t with \
| None -> true \
| Some _ -> false \
(* -------------------------------------------------------------------------- *)
......
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