New function: static-slot-home.

* struct.c (struct_init): Register intrinsic function
static-slot-home.
(lookup_static_slot_desc_load): New static function.
(static_slot_home): New function.

* struct.h (static_slot_home): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index 27e13621..d7f30f0d 100644
--- a/struct.h
+++ b/struct.h
@@ -48,6 +48,7 @@ val slotset(val strct, val sym, val newval);
 val static_slot(val stype, val sym);
 val static_slot_set(val stype, val sym, val newval);
 val static_slot_ensure(val stype, val sym, val newval, val no_error_p);
+val static_slot_home(val stype, val sym);
 val test_dirty(val strct);
 val test_clear_dirty(val strct);
 val clear_dirty(val strct);