compute: another bugfix

28854bb9 · Martin Clochard · Guillaume Melquiond · c2f2610d · 28854bb9
Commit 28854bb9 authored Jul 01, 2016 by Martin Clochard Committed by Guillaume Melquiond Jul 05, 2016
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 18 deletions

src/transform/reduction_engine.ml src/transform/reduction_engine.ml +3 -18

No files found.
--- a/src/transform/reduction_engine.ml
+++ b/src/transform/reduction_engine.ml
@@ -338,24 +338,9 @@ let first_order_matching (vars : Svs.t) (largs : term list)
                    end
                  | _ -> raise NoMatch
              end
-            | _ ->
-(*
-              Format.eprintf "are these terms equal ?...";
-*)
-              if t_equal t1 t2 then
-                begin
-(*
-                  Format.eprintf " yes!@.";
-*)
-                  loop sigma r1 r2
-                end
-              else
-                begin
-(*
-                  Format.eprintf " no@.";
-*)
-                  raise NoMatch
-                end
+            | (Tconst _ | Ttrue | Tfalse) when t_equal t1 t2 ->
+                loop sigma r1 r2
+            | _ -> raise NoMatch
        end
      | _ -> raise NoMatch
  in