From 13ee98d21a868b88928d4bf72078f67a19af9893 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 28 Apr 2025 06:14:06 -0700
Subject: 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.
---
 stdlib/infix.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3