Permalink
Browse files

[fix] callcc: now keep threadcontext, exc_handler, ...

  • Loading branch information...
1 parent 6256b85 commit 14c3e16a0da8669a3b7af481746b45399b9bf984 Hugo Heuzard committed Sep 12, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 qmlcps/qmlCpsServerLib.ml
@@ -527,7 +527,7 @@ let uncps_ml ident k (f:'b continuation -> unit) =
uncps ident k (CR.create_no_ident1 f)
let callcc_directive f k =
- let unit_cont = cont_ml (fun _ -> ()) in
+ let unit_cont = ccont_ml k (fun _ -> ()) in
f k unit_cont
(* === *)

0 comments on commit 14c3e16

Please sign in to comment.