diff options
| -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 |