# #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;;