[update] cps: repairing stack traces

MLstate · Jun 22, 2011 · 9b6db66 · 9b6db66
1 parent 8b6760b
commit 9b6db66
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/qmlcps/qmlCpsRewriter.ml b/qmlcps/qmlCpsRewriter.ml
@@ -1817,6 +1817,10 @@ let instrument_expr e =
         let env = ref None in
         let e = aux tra (Some env) e in
         Q.Lambda (label, args, QC.directive (`cps_stack_lambda env) [e] [])
+    | Q.Directive (label,`partial_apply info,[Q.Apply (label2,e,el)],tyl) ->
+        let e = aux tra env e in
+        let el = List.map (aux tra env) el in
+        Q.Directive (label,`partial_apply info,[Q.Apply (label2,e,el)],tyl)
     | Q.Apply (_, Q.Directive (_, `restricted_bypass _, _, _), _)
     | Q.Apply (_, Q.Directive (_, `may_cps, _, _), _)
     | Q.Apply (_, Q.Bypass _,_) -> tra env e