diff options
-rw-r--r-- | struct.c | 6 | ||||
-rw-r--r-- | struct.h | 1 |
2 files changed, 7 insertions, 0 deletions
@@ -1085,6 +1085,12 @@ val static_slot_p(val type, val sym) return nil; } +val slots(val stype) +{ + struct struct_type *st = stype_handle(&stype, lit("static-slot-p")); + return st->slots; +} + val structp(val obj) { return tnil(cobjp(obj) && obj->co.ops == &struct_inst_ops); @@ -47,6 +47,7 @@ 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 slotp(val type, val sym); val static_slot_p(val type, val sym); +val slots(val stype); val structp(val obj); val struct_type(val strct); val method(val strct, val slotsym); |