suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor decompiler tweak

Browse Source 
original commit: a46849f3b9
This commit is contained in:
Matthew Flatt 2013-02-27 07:48:25 -07:00
parent d728e9118d
commit 02fb754fac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/decompile.rkt
View File

@ -190,7 +190,7 @@
[(stack) (append '(#%modvars) orig-stack)] [(stack) (append '(#%modvars) orig-stack)]
[(closed) (make-hasheq)]) [(closed) (make-hasheq)])
`(,mod-name ,(if (symbol? name) name (last name)) .... `(,mod-name ,(if (symbol? name) name (last name)) ....
,@(if (null? flags) '() (list `(quote ,@flags))) ,@(if (null? flags) '() (list `(quote ,flags)))
,@(let ([l (apply ,@(let ([l (apply
append append
(for/list ([req (in-list requires)] (for/list ([req (in-list requires)]