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

[r2003-06-13 16:37:58 by cvscast] Bug Value.compare xml

Original author: cvscast
Date: 2003-06-13 16:37:58+00:00
parent 3cf870be
......@@ -218,7 +218,7 @@ let rec compare x y =
else compare x2 y2
| Xml (x1,x2,x3), Xml (y1,y2,y3) ->
let c = compare x1 y1 in if c <> 0 then c
else let c = compare x1 y2 in if c <> 0 then c
else let c = compare x2 y2 in if c <> 0 then c
else compare x3 y3
| Record rx, Record ry -> LabelMap.compare compare rx ry
| Atom x, Atom y -> Atoms.vcompare x y
......
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