1 files changed, 14 insertions, 0 deletions
diff --git a/struct.c b/struct.c
index 21a3a18a..2075b42f 100644
--- a/struct.c
+++ b/struct.c
@@ -759,6 +759,20 @@ val slot(val strct, val sym)
   no_such_slot(self, si->type->self, sym);
 }
 
+val maybe_slot(val strct, val sym)
+{
+  const val self = lit("slot");
+  struct struct_inst *si = struct_handle(strct, self);
+
+  if (symbolp(sym)) {
+    loc ptr = lookup_slot_load(strct, si, sym);
+    if (!nullocp(ptr))
+      return deref(ptr);
+  }
+
+  return nil;
+}
+
 val slotset(val strct, val sym, val newval)
 {
   const val self = lit("slotset");