From 32b6426318cddcb73a18d33f11ee6c9285256e45 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 25 Oct 2018 13:26:09 -0400 Subject: [PATCH] Check inner ref --- scheme/cyclone/cps-optimizations.sld | 1 + 1 file changed, 1 insertion(+) 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))