improve code generation for black hole as an immediate

original commit: 2e15df8a992d1c634f04bf4e162f40026a4f0840
2020-01-31 06:43:14 -07:00 · 2020-01-31 06:43:14 -07:00 · fd1745c628
commit fd1745c628
parent d13e5898c8
1 changed files with 2 additions and 0 deletions
--- a/s/cpnanopass.ss
+++ b/s/cpnanopass.ss
@ -2812,6 +2812,7 @@
          [(eof-object? x) (constant seof)]
          [($unbound-object? x) (constant sunbound)]
          [(bwp-object? x) (constant sbwp)]
+          [(eq? x '#1=#1#) (constant black-hole)]
          [(target-fixnum? x) (fix x)]
          [(char? x) (+ (* (constant char-factor) (char->integer x)) (constant type-char))]
          [else #f])))
@ -6257,6 +6258,7 @@
                  (eqv? obj "")
                  (eqv? obj '#())
                  (eqv? obj '#vu8())
+                  (eqv? obj '#0=#0#)
                  (eq? obj (void))
                  (eof-object? obj)
                  (bwp-object? obj)