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

Clean up

Browse Source
This commit is contained in:
Aryadev Chavali
2025-05-30 08:15:29 +01:00
parent 4dc3d8f832
commit 70aa166624
3 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/reader.c
View File

@@ -159,7 +159,7 @@ perr_t parse_sym(context_t *ctx, input_t *inp, lisp_t **ret)
sv_t current = sv_cut(inp->str, inp->offset);
sv_t sym = sv_chop(current, sv_while(current, is_sym));
debug("`" PR_SV "`\n", SV_FMT(sym));
debug("`" PR_SV "` => ", SV_FMT(sym));
if (sym.size == 3)
{
@@ -174,13 +174,14 @@ perr_t parse_sym(context_t *ctx, input_t *inp, lisp_t **ret)
if (strncmp(buf, "NIL", 3) == 0)
{
input_next(inp, 3);
return NIL;
*ret = NIL;
return PERR_OK;
}
}
lisp_t *lsym = make_sym(ctx, sym.data, sym.size);
*ret = make_sym(ctx, sym.data, sym.size);
debug("%#16lx\n", *ret);
input_next(inp, sym.size);
*ret = lsym;
return PERR_OK;
}
@@ -293,8 +294,9 @@ perr_t parse_str(context_t *ctx, input_t *inp, lisp_t **ret)
input_next(inp, size + 1); // 1 for that last speechmark
sv_t str_content = sv_chop(sv, size);
debug("\"" PR_SV "\"\n", SV_FMT(str_content));
debug("\"" PR_SV "\" => ", SV_FMT(str_content));
*ret = make_str(ctx, str_content.data, str_content.size);
debug("%#16lx\n", *ret);
return PERR_OK;
}