diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-15 00:25:23 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-15 00:25:23 -0800 |
| commit | 7290acecaf17b38154a065c732043e282c33c4dd (patch) | |
| tree | e0f2f1048c7980ef70c41862bc4bff2a9e3299af /LICENSE | |
| parent | 8f1e72388fc75e12e4122e1ceed03c5cdc2d6c9a (diff) | |
| download | txr-7290acecaf17b38154a065c732043e282c33c4dd.tar.gz txr-7290acecaf17b38154a065c732043e282c33c4dd.tar.bz2 txr-7290acecaf17b38154a065c732043e282c33c4dd.zip | |
matcher: improve error reporting.
So quick and dirty; you have to love special variables.
* share/txr/stdlib/match.tl (*match-form*): New special
variable.
(compile-var-match, compile-predicate-match,
compile-let-match): Use compile-error instead of error,
passing the value of *match-form* as the context.
(compile-match): Ditto, and eliminate unreachable case from
cond form.
(when-match): Capture form directly into special variable
using :form *match-form*.
Diffstat (limited to 'LICENSE')
0 files changed, 0 insertions, 0 deletions