Diego Olivier Fernandez Pons [Thu, 10 Jun 2004]:
 >     Bonjour,
 > 
 > I would like a function that contains an assert to fail in partial
 > application and the test are still removed when compiling in noassert
 > mode
 > 
 > # let f = fun x y -> assert (x > 0); assert (y > 0); x + y
 > val f : int -> int -> int
 > # f 0;;
 > - : int -> int = <fun>
 > # f 0 0;;
 > Exception: Assert_failure (" ", 1, 19).

nothing specific to assert here, regular partial application works:

# let f = fun x -> assert (x > 0) ; fun y -> assert (y > 0) ; x + y ;;
val f : int -> int -> int = <fun>
# f 0 ;;
Exception: Assert_failure ("", 1, 17).

-- 
   Olivier

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners