diff options
| author | Mistivia <i@mistivia.com> | 2025-07-01 16:40:18 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-07-01 16:40:18 +0800 |
| commit | 10b2b4d98d9a96890779007e4e574bb4471f1031 (patch) | |
| tree | bf3f12cacdb5f60d1be4182ffcac07319428e56a /src/primitives.c | |
| parent | 7dfaa40719c5a264b17aca96cd85e31bf7b8b557 (diff) | |
add docs
Diffstat (limited to 'src/primitives.c')
| -rw-r--r-- | src/primitives.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/primitives.c b/src/primitives.c index 73812b8..e5e65e3 100644 --- a/src/primitives.c +++ b/src/primitives.c @@ -106,8 +106,11 @@ SExpRef primitive_assert(Interp *interp, SExpRef args, bool istail) { } SExpRef primitive_eval(Interp *interp, SExpRef args, bool istail) { + if (LENGTH(args) != 1) { + return new_error(interp, "eval: syntax error."); + } args = lisp_eval_args(interp, args); - return lisp_eval(interp, args, istail); + return lisp_eval(interp, CAR(args), istail); } SExpRef primitive_unwind_protect(Interp *interp, SExpRef args, bool istail) { |