suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repair faster check

Browse Source 
original commit: 26bc2fd4cb99019ce6b9f52a18730c23668d2160
This commit is contained in:
Matthew Flatt 2018-07-28 08:59:46 -06:00
parent 10b01217f2
commit d7caba9417
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
s/cpnanopass.ss
View File

@ -11627,7 +11627,9 @@
,(%seq ,(%seq
(set! ,sl ,(%tc-ref stack-link)) (set! ,sl ,(%tc-ref stack-link))
(set! ,ats ,(%tc-ref attachments)) (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 ,t)
(set! ,lvalue ,(%mref ,ats ,(constant pair-car-disp))))) (set! ,lvalue ,(%mref ,ats ,(constant pair-car-disp)))))
;; Not reified, so no attachment ;; Not reified, so no attachment