Commit d05f82ce authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-01-15 06:38:45 by afrisch] Empty log message

Original author: afrisch
Date: 2005-01-15 06:38:45+00:00
parent 6fd0e645
......@@ -1025,8 +1025,8 @@ struct
| Recompose (x1,x2), Recompose (y1,y2) -> (x1 == y1) && (x2 == y2)
| _ -> false
let equal_result (r1,s1,_) (r2,s2,_) =
(r1 == r2) && (equal_array equal_source s1 s2)
let equal_result (r1,s1,l1) (r2,s2,l2) =
(r1 == r2) && (equal_array equal_source s1 s2) && (l1 == l2)
let equal_result_dispatch d1 d2 = (d1 == d2) || match (d1,d2) with
| Dispatch (d1,a1), Dispatch (d2,a2) ->
......
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