summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)