+(define (slot-ref-maybe-runcheck gameobj slot whos-asking)
+ "Do a slot-ref on gameobj, evaluating it including ourselves
+and whos-asking, and see if we should just return it or run it."
+ (match (slot-ref gameobj slot)
+ ((? procedure? slot-val-proc)
+ (slot-val-proc gameobj whos-asking))
+ (anything-else anything-else)))
+