raco decompile: expose syntax info saved for REPL

2015-04-28 15:37:10 -06:00 · 2015-04-28 15:37:10 -06:00 · e88c746c3c
commit e88c746c3c
parent bdddd3c80d
1 changed files with 5 additions and 0 deletions
--- a/compiler-lib/compiler/decompile.rkt
+++ b/compiler-lib/compiler/decompile.rkt
@ -188,6 +188,11 @@
                  [(stack) (append '(#%modvars) orig-stack)]
                  [(closed) (make-hasheq)])
       `(,mod-name ,(if (symbol? name) name (last name)) ....
+           (quote internal-context 
+                  ,(if (stx? internal-context)
+                       `(#%decode-syntax 
+                         ,(decompile-stx (stx-encoded internal-context) stx-ht))
+                       internal-context))
           ,@(if (null? flags) '() (list `(quote ,flags)))
           ,@(let ([l (apply
                       append