diff options
| author | Mistivia <i@mistivia.com> | 2025-07-01 12:10:11 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-07-01 12:10:11 +0800 |
| commit | 7dfaa40719c5a264b17aca96cd85e31bf7b8b557 (patch) | |
| tree | 17c2cb2919393fc89620efb38495121950cf77cf /src/builtins.c | |
| parent | 6d89e9697b1740366f23387964122d264475b49c (diff) | |
extend defun
Diffstat (limited to 'src/builtins.c')
| -rw-r--r-- | src/builtins.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/builtins.c b/src/builtins.c index f1c7d10..efad674 100644 --- a/src/builtins.c +++ b/src/builtins.c @@ -75,7 +75,7 @@ SExpRef builtin_foldl(Interp *interp, SExpRef args) { } SExpRef fn = CAR(args), init = CADR(args), lst = CADDR(args); SExpRef ret = init; - if (VALTYPE(fn) != kUserFuncSExp && VALTYPE(fn) != kFuncSExp) { + if (!CALLABLE(fn)) { return new_error(interp, "foldl: type error.\n"); } if (!lisp_check_list(interp, lst)) { |