Changeset 501 for abuse/trunk/src/lisp/lisp_gc.cppTweet

Timestamp:

Apr 18, 2011, 3:22:27 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: properly manage user functions and reactivate garbage collector.

File:

• abuse/trunk/src/lisp/lisp_gc.cpp (modified) (2 diffs)

abuse/trunk/src/lisp/lisp_gc.cpp

@@ -148 +148 @@
         break;
       case L_USER_FUNCTION:
-#ifndef NO_LIBS
-        ret = new_lisp_user_function(((LUserFunction *)x)->alist,
-                                     ((LUserFunction *)x)->blist);
-
-#else
-        {
-          LObject *arg = CollectObject(((LUserFunction *)x)->arg_list);
-          LObject *block = CollectObject(((LUserFunction *)x)->block_list);
-          ret = new_lisp_user_function(arg, block);
-        }
-#endif
-        break;
+      {
+        LUserFunction *fun = (LUserFunction *)x;
+        LList *arg = (LList *)CollectObject(fun->arg_list);
+        LList *block = (LList *)CollectObject(fun->block_list);
+        ret = new_lisp_user_function(arg, block);
+        break;
+      }
       case L_STRING:
         ret = LString::Create(lstring_value(x));
@@ -261 +256 @@
 void collect_space(int which_space) // should be tmp or permanent
 {
-  return; /* XXX: temporary hack */
-
   int old_space = current_space;
   cstart = space[which_space];