(props #:init-thunk make-hash-table)
;; gameobjs may inherit an initial list of these via the
;; initial-props slot, which must always have its
- ;; #:allocation #:each-subclass and use (wrap-rmeta-slot).
+ ;; #:allocation #:each-subclass and use (build-rmeta-slot).
;; The vanilla gameobj has no props, on purpose.
(initial-props #:allocation #:each-subclass
#:init-thunk (build-rmeta-slot '()))
(gameobj-setup-props actor)
(run-replacement actor replace gameobj-replace-steps*))
-(define* (gameobj-get-prop actor key #:optional dflt)
+(define* (gameobj-get-prop gameobj key #:optional dflt)
(hashq-ref (slot-ref gameobj 'props) key dflt))
-(define* (gameobj-set-prop! actor key val)
+(define* (gameobj-set-prop! gameobj key val)
(hashq-set! (slot-ref gameobj 'props) key val))
(define* (gameobj-act-get-prop actor message key #:optional dflt)