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

2018-06-22 16:26:32 -04:00 · 2018-06-22 16:26:32 -04:00 · 738fe8a44f
commit 738fe8a44f
parent 044359c53d
1 changed files with 1 additions and 0 deletions
--- a/pkgs/compiler-lib/compiler/decompile.rkt
+++ b/pkgs/compiler-lib/compiler/decompile.rkt
@ -422,6 +422,7 @@
         (begin
           (hash-set! closed gen-id #t)
           `(#%closed ,gen-id ,(decompile-expr lam globs stack closed))))]
+    [(? void?) (list 'void)]
    [else `(quote ,expr)]))

 (define (decompile-lam expr globs stack closed)