summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-02-09 20:15:02 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-02-09 20:15:02 -0800
commit3b460f87193a220a03c555c324e942716e7b8ffc (patch)
treed3c99bf99e8a73ddc35ad8fa6f0be6f293924689
parent78415b847a992e696c16df0bd0382d6e8e585333 (diff)
downloadtxr-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.18
1 files changed, 4 insertions, 4 deletions
diff --git a/txr.1 b/txr.1
index 8d77ebf7..6fdf650f 100644
--- a/txr.1
+++ b/txr.1
@@ -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)