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

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

Original author: cvscast
Date: 2003-07-24 16:24:44+00:00
parent 44eb20dc
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 [];;
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