Commit 9afcfb1a authored by POTTIER Francois's avatar POTTIER Francois

Fix a bug in [uniq] (which is not used anywhere).

parent e9087921
......@@ -42,7 +42,7 @@ let rec uniq1 cmp x ys =
[]
| y :: ys ->
if cmp x y = 0 then
uniq1 compare x ys
uniq1 cmp x ys
else
y :: uniq1 cmp y ys
......@@ -84,4 +84,3 @@ let rec foldr f xs accu =
accu
| Cons (x, xs) ->
f x (foldr f xs accu)
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