Commit 28018945 authored by POTTIER Francois's avatar POTTIER Francois

Spacing.

parent bf3a4d40
......@@ -17,8 +17,4 @@ class compare = object
end
let compare (e1 : expr) (e2 : expr) : int =
try
new compare # visit_expr () e1 e2;
0
with Different c ->
c
try new compare # visit_expr () e1 e2; 0 with Different c -> c
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