Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-10 22:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Check inner ref

Browse source
This commit is contained in:
Justin Ethier 2018-10-25 13:26:09 -04:00
parent 6f47046be0
commit 32b6426318
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/cyclone/cps-optimizations.sld
View file

@ -1795,6 +1795,7 @@
((tagged-list? '%closure-ref inner-cref)) ((tagged-list? '%closure-ref inner-cref))
(equal? self (cadr inner-cref)) (equal? self (cadr inner-cref))
((equal? 0 (caddr ast))) ((equal? 0 (caddr ast)))
((equal? 1 (caddr inner-cref)))
) )
#t)) #t))