diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-01 21:44:29 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-01 21:44:29 -0800 |
| commit | f98f2a73750bff9b182c74d073a9c78e5316d7ae (patch) | |
| tree | 007c8b8d4c06c75129e934818377b7827787cf9b /share | |
| parent | 6968ea83c5bfb11b725e3ab638a66ff2681ce6f6 (diff) | |
| download | txr-f98f2a73750bff9b182c74d073a9c78e5316d7ae.tar.gz txr-f98f2a73750bff9b182c74d073a9c78e5316d7ae.tar.bz2 txr-f98f2a73750bff9b182c74d073a9c78e5316d7ae.zip | |
matcher: rename @(let) to @(as).
* lisplib.c (match_instantiate): Ensure usr:as is interned.
* share/txr/stdlib/match.tl (compile-let-match): Rename to
compile-as-match.
(compile-match): Remove handling of let symbol; route as
symbol to compile-as-match.
* tests/011/patmatch.tl: Update all uses of let to as.
* txr.1: Updated.
Diffstat (limited to 'share')
| -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 864401c0..6c57e0b9 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -319,7 +319,7 @@ guard-expr ^(and ,*conditions))) match))) -(defun compile-let-match (exp obj-var var-list) +(defun compile-as-match (exp obj-var var-list) (mac-param-bind *match-form* (op sym pat) exp (let ((var-match (compile-var-match sym obj-var var-list)) (pat-match (compile-match pat obj-var var-list))) @@ -488,7 +488,7 @@ (caseq (car exp) (struct (compile-struct-match exp obj-var var-list)) (require (compile-require-match exp obj-var var-list)) - (let (compile-let-match exp obj-var var-list)) + (usr:as (compile-as-match exp obj-var var-list)) (all (compile-loop-match exp obj-var var-list)) (usr:all* (compile-loop-match exp obj-var var-list)) (some (compile-loop-match exp obj-var var-list)) |