From d36f0aeb64029354b052d477994046395919b36f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 17 Mar 2021 22:32:56 -0400 Subject: [PATCH] Scan closure free variables --- scheme/cyclone/cps-optimizations.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index b8c3e9b5..cd0f0518 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -2109,7 +2109,8 @@ ((tagged-list? '%closure exp) (let* ((lam (closure->lam exp)) (body (car (ast:lambda-body lam)))) - (scan body))) + (scan body) + (for-each scan (closure->fv exp)))) ;; Global definition ((define? exp) (scan (car (define->exp exp))))