diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-04-28 06:14:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-04-28 06:14:06 -0700 |
| commit | 13ee98d21a868b88928d4bf72078f67a19af9893 (patch) | |
| tree | 226a0af896dc55dc3743260b48e00eba8c93be94 | |
| parent | 43cc1f2254018839a3933a2d91cf8589876a9164 (diff) | |
| download | txr-13ee98d21a868b88928d4bf72078f67a19af9893.tar.gz txr-13ee98d21a868b88928d4bf72078f67a19af9893.tar.bz2 txr-13ee98d21a868b88928d4bf72078f67a19af9893.zip | |
infix: bug: handle dotted function calls.
* stdlib/infix.tl (infix-expand-hook): In the phony
prefix case, require rest to be a cons, rather
than non-nil in order to invoke cdr.
| -rw-r--r-- | stdlib/infix.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/infix.tl b/stdlib/infix.tl index 88c42e2d..5d92f9ce 100644 --- a/stdlib/infix.tl +++ b/stdlib/infix.tl @@ -280,7 +280,7 @@ ^(,y ,x ,*rest) ^(,y ,x ,rexp)))) (@(require (@x . @rest) - (and rest (cdr rest) (funp env x))) + (and (consp rest) (cdr rest) (funp env x))) (let ((rexp (infix-expand-hook rest env nil))) (if (eq rexp rest) exp |