diff options
| -rw-r--r-- | share/txr/stdlib/match.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index 526e3b3d..18ab6577 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -116,7 +116,7 @@ test-expr ^(equal ,obj-var ',atom))))) (defun compile-predicate-match (pred-expr obj-var) - (tree-bind (fun sym) pred-expr + (tree-bind (fun : sym) pred-expr (or (null sym) (bindable sym) (compile-error *match-form* "~s is not a symbol" sym)) (let ((var-match (compile-var-match sym obj-var))) |