diff options
| author | Mistivia <i@mistivia.com> | 2025-06-24 15:44:12 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-24 15:50:55 +0800 |
| commit | 65cd835954825568a432c2e62d8019269dcafd74 (patch) | |
| tree | 52724d76c7506e1acce6c20903ff18fbeda02c8f /src/primitives.c | |
| parent | 60b8cd0df3ed844ea5c77286ac27afff5b3c9b37 (diff) | |
add list function
Diffstat (limited to 'src/primitives.c')
| -rw-r--r-- | src/primitives.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/primitives.c b/src/primitives.c index 899cbdd..5f70f09 100644 --- a/src/primitives.c +++ b/src/primitives.c @@ -64,7 +64,7 @@ SExpRef primitive_assert(Interp *interp, SExpRef args, bool istail) { if (LENGTH(args) != 1) { return new_error(interp, "assert: expect 1 arg.\n"); } - if (TRUEP(CAR(eargs))) { + if (TRUEP(CAR(eargs)) && !CTL_FL(CAR(eargs))) { return interp->t; } else { const char *expstr = lisp_to_string(interp, CAR(args)); |