From fd1745c62889604eb193c52f281d28e41d58df2e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 31 Jan 2020 06:43:14 -0700
Subject: [PATCH] improve code generation for black hole as an immediate

original commit: 2e15df8a992d1c634f04bf4e162f40026a4f0840
---
 s/cpnanopass.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss
index 4643092914..b2dffae410 100644
--- 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)