diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld index c851f472..b1a799d6 100644 --- a/scheme/cyclone/transforms.sld +++ b/scheme/cyclone/transforms.sld @@ -749,7 +749,7 @@ (wrap-mutable-formals (ast:lambda-id exp) (ast:lambda-formals->list exp) - (wrap-mutables (car (ast:lambda-body exp)) globals) + (list (wrap-mutables (car (ast:lambda-body exp)) globals)) (ast:lambda-has-cont exp)) (ast:lambda-has-cont exp) )) ;; Assume single expr in lambda body, since after CPS phase