diff options
| -rw-r--r-- | stdlib/infix.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/infix.tl b/stdlib/infix.tl index 66bd9037..30f95081 100644 --- a/stdlib/infix.tl +++ b/stdlib/infix.tl @@ -262,7 +262,8 @@ ((@else) else)) (defmacro funp (env sym) - ^(or (fboundp ,sym) (lexical-fun-p ,env ,sym))) + ^(unless (consp ,sym) + (or (fboundp ,sym) (lexical-fun-p ,env ,sym)))) (defun-match detect-infix (((@x @y . @rest) @env) |