Zander671/simple-lisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix some read errors

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-09-24 22:27:43 -07:00
parent 9c7eee0266
commit 5ad4e054e0
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/kernel.sl
View File

@ -444,3 +444,6 @@
(t (print obj))) (t (print obj)))
(when newline (when newline
(println))) (println)))
(breakpoint)
'

3
src/read.c
View File

@ -486,6 +486,9 @@ static LispVal *read_internal(struct ReadState *state) {
case '\'': { case '\'': {
popc(state); // ' popc(state); // '
LispVal *tail = read_internal(state); LispVal *tail = read_internal(state);
if (!tail) {
READ_ERROR(state, 1, "quote not quoting anything");
}
LispVal *res = Fpair(Qquote, Fpair(tail, Qnil)); LispVal *res = Fpair(Qquote, Fpair(tail, Qnil));
refcount_unref(tail); refcount_unref(tail);
refcount_unref(TAIL(res)); refcount_unref(TAIL(res));