From 481c079e4ae259f3c780b3cf27e58321cb7decf2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 4 Oct 2022 22:40:44 -0700
Subject: define-struct-clause: reject :postfini

* stdlib/struct.tl (define-struct-clause): Disallow
the :postfini keyword as clause name.

* txr.1: Documented.
---
 stdlib/struct.tl | 2 +-
 txr.1            | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/stdlib/struct.tl b/stdlib/struct.tl
index 97a7d9ed..2955af7c 100644
--- a/stdlib/struct.tl
+++ b/stdlib/struct.tl
@@ -398,7 +398,7 @@
        ,body)))
 
 (defmacro define-struct-clause (:form form keyword (. params) . body)
-  (if (meq keyword :static :instance :function :method :init :postinit :fini)
+  (if (meq keyword :static :instance :function :method :init :postinit :fini :postfini)
     (compile-error form "~s is a reserved defstruct clause keyword" keyword))
   (unless (keywordp keyword)
     (compile-error form "~s: clauses must be named by keyword symbols" keyword))
diff --git a/txr.1 b/txr.1
index 7f7ac353..18a23f7f 100644
--- a/txr.1
+++ b/txr.1
@@ -31891,9 +31891,10 @@ The built-in clause keywords
 .codn :function ,
 .codn :method ,
 .codn :init ,
-.code :postinit
-and
+.codn :postinit ,
 .code :fini
+and
+.codn :postfini .
 may not be used as the names of a struct clause macro; if any of these
 symbols is used as the
 .meta keyword
-- 
cgit v1.2.3