Changeset 501 for abuse/trunk/src/lisp/lisp.hTweet

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.h (modified) (2 diffs)

abuse/trunk/src/lisp/lisp.h

@@ -154 +154 @@
 struct LUserFunction : LObject
 {
-#ifndef NO_LIBS
-    intptr_t alist, blist;      // id for cached blocks
-#else
-    void *arg_list, *block_list;
-#endif
+    LList *arg_list, *block_list;
 };
 
@@ -238 +234 @@
 LSysFunction *new_lisp_c_bool(int min_args, int max_args, int fun_number);
 
-#ifdef NO_LIBS
-LUserFunction *new_lisp_user_function(void *arg_list, void *block_list);
-#else
-LUserFunction *new_lisp_user_function(intptr_t arg_list, intptr_t block_list);
-#endif
+LUserFunction *new_lisp_user_function(LList *arg_list, LList *block_list);
 
 LSysFunction *new_user_lisp_function(int min_args, int max_args, int fun_number);