Permalink
Browse files

no need for rec

  • Loading branch information...
1 parent 3f5c07d commit bcbfd6ca938178f85b81223f01464a1dd095b75f Jake Donham committed Apr 24, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 examples/froc-dom/quickhull/quickhull.ml
@@ -84,7 +84,7 @@ struct
| Nil -> F.return true
| Cons (_, t) -> length_less_than (n - 1) t
- let rec map f =
+ let map f =
let f = IFDEF STATS THEN fun x -> incr S.maps; f x ELSE f ENDIF in
let memo = IFDEF MEMO THEN F.memo ~hash:F.hash_behavior () ELSE fun f -> f ENDIF in
let rec map l =
@@ -93,7 +93,7 @@ struct
| Cons (h, t) -> cons (f h) (memo map t) in
memo map
- let rec filter f =
+ let filter f =
let f = IFDEF STATS THEN fun x -> incr S.filters; f x ELSE f ENDIF in
let memo = IFDEF MEMO THEN F.memo ~hash:F.hash_behavior () ELSE fun f -> f ENDIF in
let rec filter l =
@@ -104,7 +104,7 @@ struct
if f h then cons h t else t in
memo filter
- let rec max cmp =
+ let max cmp =
let cmp = IFDEF STATS THEN fun a b -> incr S.maxs; cmp a b ELSE cmp ENDIF in
let memo = IFDEF MEMO THEN F.memo ~hash:F.hash_behavior () ELSE fun f -> f ENDIF in
let rec max l =

0 comments on commit bcbfd6c

Please sign in to comment.