From 6a0a40773bee8916051584e813c41a75284bf999 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 18 Aug 2008 22:28:08 +0000 Subject: [PATCH] add with-cont-mark decompilation svn: r11306 --- collects/compiler/decompile.ss | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss index 33144f5eed..1448bb138d 100644 --- 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))