X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;fp=mudsync%2Fgameobj.scm;h=33d9cd04af3dc33b1e49fb1067362bc7979ae0d4;hp=9e331da1466647cb8a022f562531af8fa3eb0a50;hb=dac87df0a26534290c30ea79c664594f2d8fe582;hpb=a2459572d0e68a0d5a0a7a5a3876c8c23794161b diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm index 9e331da..33d9cd0 100644 --- a/mudsync/gameobj.scm +++ b/mudsync/gameobj.scm @@ -114,7 +114,7 @@ (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 '())) @@ -228,10 +228,10 @@ (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)