Improve read.c
This commit is contained in:
+1
-1
@@ -211,7 +211,7 @@ LispVal *make_builtin_function(LispVal *name, LispVal *(*cfunc)(void),
|
||||
obj->impl.native.no_eval_args = false;
|
||||
obj->impl.native.addr.zero = cfunc;
|
||||
ReadStream stream;
|
||||
read_stream_init(&stream, lisp_args, args_len);
|
||||
read_stream_init_from_string(&stream, lisp_args, args_len);
|
||||
LispVal *args_form = read(&stream);
|
||||
if (!args_form) {
|
||||
fprintf(stderr, "Builtin function lambda list had a syntax error\n");
|
||||
|
||||
Reference in New Issue
Block a user