decompiler: print void in a read-able form except under quote.

This commit is contained in:
Sam Tobin-Hochstadt 2018-06-22 16:26:32 -04:00
parent 044359c53d
commit 738fe8a44f

View File

@ -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)