From 3df3bfdaadab1344d5ec5c883a04f8dbe205aa96 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 9 Feb 2021 20:15:02 -0800 Subject: doc: fix broken my-cond example. * txr.1: Replace obsolete @[...] predicate notation in the my-cond example with working code. --- txr.1 | 8 ++++---- 1 file 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) -- cgit v1.2.3