diff options
| author | Mistivia <i@mistivia.com> | 2025-06-21 10:45:36 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-21 10:45:36 +0800 |
| commit | 86742c415b34ae063bf8597d9228e9d37f0d7294 (patch) | |
| tree | 297b2ae6a8b20bf74c9e54ec6628799c02425c0d /src/builtins.c | |
| parent | 0afe446fa6e893448da949b1b6882c87b3b2701c (diff) | |
tail call optimazation
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 58873ef..f64083b 100644 --- a/src/builtins.c +++ b/src/builtins.c @@ -10,7 +10,7 @@ SExpRef builtin_car(Interp *interp, SExpRef args) { if (LENGTH(args) != 1) { return new_error(interp, "car: wrong argument number.\n"); } - if (ERRORP(args)) return args; + if (CTL_FL(args)) return args; return CAR(CAR(args)); } |