From d4d9eee6bef1bc9169e765c9bf3d2382a70198c2 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Mon, 12 Aug 2013 21:34:55 +0800
Subject: ...

---
 types.cpp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'types.cpp')

diff --git a/types.cpp b/types.cpp
index 1548805..84106df 100644
--- a/types.cpp
+++ b/types.cpp
@@ -90,9 +90,13 @@ Pair *ProcObj::call(Pair *args, Environment * &genvt,
 
     genvt = _envt;
     cont = _cont;
-    *top_ptr++ = new RetAddr(NULL);   // Mark the entrance of a cont
+
+    gc.expose(static_cast<EvalObj*>(*(top_ptr + 1)));          // release opt obj
+    delete *top_ptr;                    // release ret addr
+
+    *top_ptr++ = new RetAddr(NULL);     // Mark the entrance of a cont
     gc.expose(args);
-    return body;                    // Move pc to the proc entry point
+    return body;                        // Move pc to the proc entry point
 }
 
 ReprCons *ProcObj::get_repr_cons() {
@@ -222,6 +226,8 @@ BuiltinProcObj::BuiltinProcObj(BuiltinProc f, string _name) :
             Continuation * &cont, FrameObj ** &top_ptr) {
 
         Pair *ret_addr = static_cast<RetAddr*>(*top_ptr)->addr;
+        gc.expose(static_cast<EvalObj*>(*(top_ptr + 1)));
+        delete *top_ptr;
         *top_ptr++ = handler(TO_PAIR(args->cdr), name);
         gc.expose(args);
         return ret_addr->next;          // Move to the next instruction
-- 
cgit v1.2.3