[r2003-07-24 16:24:44 by cvscast] encoding lazy...

Original author: cvscast
Date: 2003-07-24 16:24:44+00:00

tests/lazy.cd

+let f = 
+ let r = ref (`Cached,Int)| `None `None in
+ fun ([] : []) : Int =
+  match !r with
+  | (`Cached,x) -> x
+  | `None -> let x = (print "EVAL\n"; 10) in r := (`Cached,x); x;;
+
+
+f [];;
+f [];;