diff --git a/scheme/eval.sld b/scheme/eval.sld index 4c20f299..cdb38de9 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -10,6 +10,7 @@ (define-library (scheme eval) (import (scheme cyclone util) + (scheme cyclone transforms) ;(scheme cyclone libraries) ;; for handling import sets (scheme base) (scheme file) @@ -482,9 +483,14 @@ (apply-primitive-procedure proc args)) ((compound-procedure? proc) ((procedure-body proc) - (env:extend-environment (procedure-parameters proc) - args - (procedure-environment proc)))) + (env:extend-environment + ;; TODO: need to pass lambdas as a list (depending on type), and + ;; split up args accordingly (create a list for varargs) + + ;(lambda-formals->list + (procedure-parameters proc);) + args + (procedure-environment proc)))) ((procedure? proc) (apply proc