diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index dc6e55c1..87816afb 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1758,7 +1758,7 @@ ((tagged-list? 'let exp) `(let ,(cadr exp) - ,@(convert + ,(convert (caddr exp) self-var ;; Do not closure convert the let's variables because