diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index d307a0ef..39a979b9 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1795,6 +1795,7 @@ ((tagged-list? '%closure-ref inner-cref)) (equal? self (cadr inner-cref)) ((equal? 0 (caddr ast))) + ((equal? 1 (caddr inner-cref))) ) #t))