New rslot macro to suport upcoming awk macro.

This provides a way to create lexical macros denoting slots,
such that method are invoked when they are updated.

* lisplib.c (struct_set_entries): Add rslot to list of
auto-load symbols for struct.tl module.

* share/txr/stdlib/struct.tl (sys:rslotset): New function.
(rslot, rslot): New macro and place macro.
(sys:rslot): New place kind.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 134264ad..b9b58f45 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -178,7 +178,7 @@ static val struct_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("defstruct"), lit("qref"), lit("new"), lit("meth"),
-    lit("umeth"), lit("usl"), lit("defmeth"), nil
+    lit("umeth"), lit("usl"), lit("defmeth"), lit("rslot"), nil
   };
 
   set_dlt_entries(dlt, name, fun);