From 5bc8b67ebaf9a3191f4fae2e926b582033b593ab Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 6 Jul 2011 19:58:26 -0600 Subject: [PATCH] fix decompile of define-values-for-syntax --- collects/compiler/decompile.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/decompile.rkt b/collects/compiler/decompile.rkt index 67bdf9beb2..7e4586ef1b 100644 --- a/collects/compiler/decompile.rkt +++ b/collects/compiler/decompile.rkt @@ -138,7 +138,7 @@ ,(let-values ([(globs defns) (decompile-prefix prefix)]) `(let () ,@defns - ,(decompile-expr rhs globs '(#%globals) closed))))] + ,(decompile-form rhs globs '(#%globals) closed))))] [(struct seq (forms)) `(begin ,@(map (lambda (form) (decompile-form form globs stack closed))