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

reader: deal with negative prefix numbers in read

Browse Source
This commit is contained in:
Aryadev Chavali
2026-02-11 08:25:01 +00:00
committed by oreodave
parent d1d0783fc3
commit f09e0d33a4
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/reader.c
View File

@@ -171,6 +171,25 @@ read_err_t read(sys_t *sys, stream_t *stream, lisp_t **ret)
char c = stream_peek(stream); char c = stream_peek(stream);
if (isdigit(c)) if (isdigit(c))
return read_int(sys, stream, ret); return read_int(sys, stream, ret);
else if (c == '-')
{
char c1 = stream_next(stream);
if (isdigit(c1))
{
read_err_t err = read_int(sys, stream, ret);
if (err)
return err;
i64 n = as_int(*ret);
n *= -1;
*ret = make_int(n);
return READ_ERR_OK;
}
else if (is_sym(c1))
{
stream_seek_backward(stream, 1);
return read_sym(sys, stream, ret);
}
}
else if (is_sym(c)) else if (is_sym(c))
return read_sym(sys, stream, ret); return read_sym(sys, stream, ret);
else if (c == '\'') else if (c == '\'')