From 63c32fa4bcb81ad65d403cc42652efbed9e6517f Mon Sep 17 00:00:00 2001 From: jim Date: Thu, 30 Apr 2015 12:20:18 -0400 Subject: [PATCH 1/1] tweak wrapper for delimcc --- topics/week13_native_continuation_operators.mdwn | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/topics/week13_native_continuation_operators.mdwn b/topics/week13_native_continuation_operators.mdwn index 179b7801..30c85ec4 100644 --- a/topics/week13_native_continuation_operators.mdwn +++ b/topics/week13_native_continuation_operators.mdwn @@ -104,10 +104,11 @@ However, OCaml doesn't have any continuation operators in its standard deploymen # #directory "+../delimcc";; # #load "delimcc.cma";; # let reset_label = ref None;; - # let reset body = let p = Delimcc.new_prompt () in - let oldp = !reset_label in - reset_label := Some p; let res = Delimcc.push_prompt p body in - reset_label := oldp; res;; + # let reset body = + let p = Delimcc.new_prompt () in + let oldp = !reset_label in + reset_label := Some p; let res = Delimcc.push_prompt p body in + reset_label := oldp; res;; # let shift fun_k = match !reset_label with | None -> failwith "shift must be inside reset" | Some p -> Delimcc.shift p fun_k;; -- 2.11.0