Commit 56642735 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

fixed shape of a negation

parent e417039f
......@@ -185,7 +185,7 @@ let rec t_shape ~version ~(push:string->'a->'a) c m (acc:'a) t : 'a =
fn (push tag_let (t_shape ~version ~push c m acc t2)) t1
| _ -> assert false
end
| Tnot f -> push tag_not (fn acc f)
| Tnot f -> fn (push tag_not acc) f
| Ttrue -> push tag_true acc
| Tfalse -> push tag_false acc
......
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