add with-cont-mark decompilation

svn: r11306 original commit: 6a0a40773b
2008-08-18 22:28:08 +00:00 · 2008-08-18 22:28:08 +00:00 · da32616652
commit da32616652
parent a290d88c64
1 changed files with 5 additions and 0 deletions
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@ -248,6 +248,11 @@
    [(struct beg0 (exprs))
     `(begin0 ,@(for/list ([expr (in-list exprs)])
                  (decompile-expr expr globs stack)))]
+    [(struct with-cont-mark (key val body))
+     `(with-continuation-mark
+          ,(decompile-expr key globs stack)
+          ,(decompile-expr val globs stack)
+          ,(decompile-expr body globs stack))]
    [(struct closure (lam gen-id))
     `(CLOSED ,gen-id ,(decompile-expr lam globs stack))]
    [(struct indirect (val))