Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 14c3e16a0da8669a3b7af481746b45399b9bf984 1 parent 6256b85
Hugo Heuzard authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  qmlcps/qmlCpsServerLib.ml
View
2  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
(* === *)
Please sign in to comment.
Something went wrong with that request. Please try again.