diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-09 20:15:02 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-09 20:15:02 -0800 |
commit | 3b460f87193a220a03c555c324e942716e7b8ffc (patch) | |
tree | d3c99bf99e8a73ddc35ad8fa6f0be6f293924689 | |
parent | 78415b847a992e696c16df0bd0382d6e8e585333 (diff) | |
download | txr-3b460f87193a220a03c555c324e942716e7b8ffc.tar.gz txr-3b460f87193a220a03c555c324e942716e7b8ffc.tar.bz2 txr-3b460f87193a220a03c555c324e942716e7b8ffc.zip |
doc: fix broken my-cond example.
* txr.1: Replace obsolete @[...] predicate notation in the
my-cond example with working code.
-rw-r--r-- | txr.1 | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -41298,12 +41298,12 @@ in which case it inserts its own generated symbol. (defmacro my-cond (:match :form f) (() nil) - (((@(and @(constantp) @[eval test val])) . @rest) - (when (and val rest) + (((@(and @(constantp @test) @(eval))) . @rest) + (when rest (compile-error f "unreachable code after ~s" test)) test) - (((@(and @(constantp) @[eval test val]) . @forms) . @rest) - (when (and val rest) + (((@(and @(constantp @test) @(eval)) . @forms) . @rest) + (when (and rest) (compile-error f "unreachable code after ~s" test)) ^(progn ,*forms)) (((@test) . @rest) |