decompiler: print void in a read-able form except under quote.
This commit is contained in:
parent
044359c53d
commit
738fe8a44f
|
@ -422,6 +422,7 @@
|
||||||
(begin
|
(begin
|
||||||
(hash-set! closed gen-id #t)
|
(hash-set! closed gen-id #t)
|
||||||
`(#%closed ,gen-id ,(decompile-expr lam globs stack closed))))]
|
`(#%closed ,gen-id ,(decompile-expr lam globs stack closed))))]
|
||||||
|
[(? void?) (list 'void)]
|
||||||
[else `(quote ,expr)]))
|
[else `(quote ,expr)]))
|
||||||
|
|
||||||
(define (decompile-lam expr globs stack closed)
|
(define (decompile-lam expr globs stack closed)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user