From c609898ed0bdb212bd5b53758cd22f617d9760df Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 16 Mar 2017 21:10:45 -0700 Subject: 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. --- struct.h | 1 + 1 file changed, 1 insertion(+) (limited to 'struct.h') 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); -- cgit v1.2.3