From d7caba94173810a87905fa49942af9645de1471b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 28 Jul 2018 08:59:46 -0600
Subject: [PATCH] repair faster check

original commit: 26bc2fd4cb99019ce6b9f52a18730c23668d2160
---
 s/cpnanopass.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss
index c450ddcd26..a6a99162c9 100644
--- a/s/cpnanopass.ss
+++ b/s/cpnanopass.ss
@@ -11627,7 +11627,9 @@
                 ,(%seq
                   (set! ,sl ,(%tc-ref stack-link))
                   (set! ,ats ,(%tc-ref attachments))
-                  (if ,(%inline eq? ,(%mref ,sl ,(constant continuation-attachments-disp)) ,ats)
+                  (if (if ,(%inline eq? ,(%mref ,sl ,(constant continuation-attachments-disp)) ,ats)
+                          (true)
+                          ,(%inline eq? ,(%mref ,sl ,(constant continuation-attachments-disp)) ,(%constant sfalse)))
                       (set! ,lvalue ,t)
                       (set! ,lvalue ,(%mref ,ats ,(constant pair-car-disp)))))
                 ;; Not reified, so no attachment