Zander671/glisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial (bad) gc

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-21 20:52:18 -08:00
parent 4c04e71078
commit 656846ddc0
16 changed files with 650 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/function.h
View File

@ -77,14 +77,14 @@ void parse_lambda_list(LambdaListParseResult *out, LispVal *list);
// This will cause the program to exit if an error occurs while parsing
// LISP_ARGS!
LispVal *make_builtin_function(LispVal *name, LispVal *(*func)(),
LispVal *make_builtin_function(LispVal *name, LispVal *(*func)(void),
const char *lisp_args, size_t args_len,
LispVal *docstr);
#define BUILTIN_FUNCTION_OBJ(cname) \
make_builtin_function( \
Q##cname, (LispVal * (*) ()) F##cname, internal_F##cname##_argstr, \
internal_F##cname##_argstr_len, \
make_lisp_string(internal_F##cname##_docstr, \
#define BUILTIN_FUNCTION_OBJ(cname) \
make_builtin_function( \
Q##cname, (LispVal * (*) (void) ) F##cname, \
internal_F##cname##_argstr, internal_F##cname##_argstr_len, \
make_lisp_string(internal_F##cname##_docstr, \
internal_F##cname##_docstr_len, false, false))
DECLARE_FUNCTION(funcall, (LispVal * func, LispVal *args));