diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-04 07:22:08 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-04 07:22:08 -0700 |
| commit | c5c227d4ed411e4828bc0b2685693e60cef585c4 (patch) | |
| tree | c9df74d7df043e8e31c253c896fc323e22a69e31 /tests/011 | |
| parent | fdba421c3b61b5e7c696114f9bc424a25e27d692 (diff) | |
| download | txr-c5c227d4ed411e4828bc0b2685693e60cef585c4.tar.gz txr-c5c227d4ed411e4828bc0b2685693e60cef585c4.tar.bz2 txr-c5c227d4ed411e4828bc0b2685693e60cef585c4.zip | |
matcher: doc fix, quasiquote examples, new test.
* tests/011/patmatch.tl: New test case.
* txr.1: Heading fix: Quasiquote matching notation, not
quasiliteral. Examples of quasiquote notation added.
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/patmatch.tl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 8a304a6d..9e566502 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -474,6 +474,7 @@ (mtest (when-match ^(,a ,b) '(1 2) (list a b)) (1 2) + (when-match ^(,(oddp @a) ,(evenp @b)) '(1 2) (list a b)) (1 2) (when-match ^#(,a ,b) #(1 2) (list a b)) (1 2) (when-match ^#S(,type year ,y) #S(time year 2021) (list (struct-type-name type) y)) (time 2021) |