From cfee90031ce0cd0f0dee211d3d9f218cdfd48494 Mon Sep 17 00:00:00 2001
From: INotWant <tinggao@bupt.edu.cn>
Date: Tue, 12 Jan 2021 22:38:39 +0800
Subject: [PATCH] fix bug

---
 kernel/lisp/apply.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/kernel/lisp/apply.c b/kernel/lisp/apply.c
index 4df393f..544c0b8 100644
--- a/kernel/lisp/apply.c
+++ b/kernel/lisp/apply.c
@@ -15,10 +15,7 @@ element_t apply(void *procedure, void *arguments) {
         void *exps = procedure_body(procedure);
         /* 更新 root 表中的 env 指针 -- for GC of pair */
         update_env_point(new_env);
-        element_t ret_ele = eval_sequence(exps, new_env);
-        /* 恢复 env 指针 */
-        update_env_point(old_env);
-        return ret_ele;
+        return eval_sequence(exps, new_env);
     } else 
         eval_error_handler(UNKNOWN_PROC_TYPE);
 }