Ignore:
Timestamp:
Apr 18, 2011, 3:22:27 AM (10 years ago)
Author:
Sam Hocevar
Message:

lisp: properly manage user functions and reactivate garbage collector.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lisp/lisp.h

    r499 r501  
    154154struct LUserFunction : LObject
    155155{
    156 #ifndef NO_LIBS
    157     intptr_t alist, blist;      // id for cached blocks
    158 #else
    159     void *arg_list, *block_list;
    160 #endif
     156    LList *arg_list, *block_list;
    161157};
    162158
     
    238234LSysFunction *new_lisp_c_bool(int min_args, int max_args, int fun_number);
    239235
    240 #ifdef NO_LIBS
    241 LUserFunction *new_lisp_user_function(void *arg_list, void *block_list);
    242 #else
    243 LUserFunction *new_lisp_user_function(intptr_t arg_list, intptr_t block_list);
    244 #endif
     236LUserFunction *new_lisp_user_function(LList *arg_list, LList *block_list);
    245237
    246238LSysFunction *new_user_lisp_function(int min_args, int max_args, int fun_number);
Note: See TracChangeset for help on using the changeset viewer.