doc: fix broken my-cond example.

* txr.1: Replace obsolete @[...] predicate notation in the
my-cond example with working code.

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)