oreodave/alisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reader: use make_list in read_quote

Browse Source
This commit is contained in:
Aryadev Chavali
2026-03-05 19:59:46 +00:00
parent cb8d1b1139
commit 37d1764c6e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/reader.c
View File

@@ -200,8 +200,8 @@ read_err_t read_quote(sys_t *sys, stream_t *stream, lisp_t **ret)
read_err_t err = read(sys, stream, &to_quote); read_err_t err = read(sys, stream, &to_quote);
if (err) if (err)
return err; return err;
*ret = cons(sys, to_quote, NIL); lisp_t *items[] = {intern(sys, SV_AUTO("quote")), to_quote};
*ret = cons(sys, intern(sys, SV_AUTO("quote")), *ret); *ret = make_list(sys, items, ARRSIZE(items));
return READ_ERR_OK; return READ_ERR_OK;
} }