1 files changed, 23 insertions, 1 deletions

diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c
index 0f1498d..7ac9bf7 100644
--- a/src/bootstrap/primitives.c
+++ b/src/bootstrap/primitives.c
@@ -104,6 +104,12 @@ eval_lambda:
                 // Extend environment.
                 env = env_extend(tmp, env);
             }
+
+            // Create temporary environment to store bindings.
+            Environment *tmp = env_create(env);
+            push_active_env(tmp);
+
+            // Evaluate arguments in temporary environment.
             while (params != obj_nil) {
                 if (args == obj_nil) {
                     error_push((Error){
@@ -124,7 +130,7 @@ eval_lambda:
                     });
                     return obj_err;
                 }
-                env_add_or_update_current(env, symbol, value);
+                env_add_or_update_current(tmp, symbol, value);
                 args = args->cdr;
                 params = params->cdr;
             }
@@ -135,6 +141,22 @@ eval_lambda:
                 });
                 return obj_err;
             }
+
+            // Copy temporary environment values to closure environment.
+            args = root->cdr;
+            params = lambda->params;
+            while (params != obj_nil) {
+                Object *symbol = params->car;
+                Object *value = env_lookup(tmp, symbol);
+                env_add_or_update_current(env, symbol, value);
+                args = args->cdr;
+                params = params->cdr;
+            }
+
+            // Release the temporary environment protection.
+            pop_active_env();
+
+            // Run the body of the function.
             root = lambda->body;
             while (root->cdr != obj_nil) {
                 if (eval(env, root->car) == obj_err) {