From 96f8af8e611e42256989df8a9976d42e2311098a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 4 Feb 2021 19:17:14 -0800 Subject: matcher: misleading diagnostics. * share/txr/stdlib/match.tl (compile-var-match, compile-predicate-match): Replace "is not a symbol" with "is not a bindable symbol". I had this message come up claiming that a :keyword is not a symbol. --- share/txr/stdlib/match.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index 8932cc71..ef707d80 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -183,7 +183,7 @@ (defun compile-var-match (sym obj-var var-list) (or (null sym) (bindable sym) - (compile-error *match-form* "~s is not a symbol" sym)) + (compile-error *match-form* "~s is not a bindable symbol" sym)) (cond ((or (null sym) (not var-list.(exists sym))) @@ -280,7 +280,7 @@ (defun compile-predicate-match (pred-expr obj-var var-list) (mac-param-bind *match-form* (fun : sym) pred-expr (or (null sym) (bindable sym) - (compile-error *match-form* "~s is not a symbol" sym)) + (compile-error *match-form* "~s is not a bindable symbol" sym)) (let ((var-match (compile-var-match sym obj-var var-list))) var-match.(add-guard-pre (new match-guard guard-expr ^(,fun ,obj-var))) -- cgit v1.2.3