Struct methods and functions set up named block.

* share/txr/stdlib/struct.tl (defstruct): Generate a named
block around the body forms of the :method and
:function lambdas, whose name matches the slot name.

* txr.1: Documented.

1 files changed, 6 insertions, 2 deletions

diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl
index 24bccbe5..3958692c 100644
--- a/share/txr/stdlib/struct.tl
+++ b/share/txr/stdlib/struct.tl
@@ -46,9 +46,13 @@
                                                "~s: method ~s needs \
                                                \ at least one parameter"
                                                'defstruct name))
-                                     ^(:static ,name (lambda ,args ,*body)))
+                                     ^(:static ,name
+                                               (lambda ,args
+                                                 (block ,name ,*body))))
                                    (:function ^(:static ,name
-                                                        (lambda ,args ,*body)))
+                                                        (lambda ,args
+                                                          (block ,name
+                                                            ,*body))))
                                    ((:static :instance)
                                      (when body
                                        (sys:bad-slot-syntax slot))