Guest User

Untitled

a guest
Apr 12th, 2012
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.10 KB | None | 0 0
  1.  
  2. let f g =
  3.   try
  4.     g ();
  5.     2
  6.   with Exit -> 1
  7.  
  8. let bar () = f (fun () -> raise Exit)
Advertisement
Add Comment
Please, Sign In to add comment