New macro: with-objects.

* lisplib.c (with_resources_set_entries): "with-objects" added
to name table.

* share/txr/stdlib/with-resources.tl (with-objects): New macro.

* txr.1: Documented with-objects. Added note to :fini
specifier of defstruct pointing to call-finalizers and
with-objects.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 122256f3..81240da3 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -130,7 +130,11 @@ static val txr_case_instantiate(val set_fun)
 
 static val with_resources_set_entries(val dlt, val fun)
 {
-  val name[] = { lit("with-resources"), nil };
+  val name[] = {
+    lit("with-resources"),
+    lit("with-objects"),
+    nil
+  };
   set_dlt_entries(dlt, name, fun);
   return nil;
 }