diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-04 19:17:14 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-04 19:17:14 -0800 |
| commit | f055ae89294466fc2b18fd1550514cf533eccb23 (patch) | |
| tree | b96a1dfa6c580aa551b5670df4136c600105b6b4 | |
| parent | fb83aae919b90005b4f9a0298cfe4130fb58a13f (diff) | |
| download | txr-f055ae89294466fc2b18fd1550514cf533eccb23.tar.gz txr-f055ae89294466fc2b18fd1550514cf533eccb23.tar.bz2 txr-f055ae89294466fc2b18fd1550514cf533eccb23.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/match.tl | 4 |
1 files 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))) |