fix decompile of define-values-for-syntax

original commit: 5bc8b67eba
2011-07-06 19:58:26 -06:00 · 2011-07-06 19:58:26 -06:00 · 1f9a6339e4
commit 1f9a6339e4
parent 2f65de9812
1 changed files with 1 additions and 1 deletions
--- 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))