X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=7be08654a72e0e5bec190d9df03ddcf7ba208313;hp=bb4c8520628ba0a0b4dcb56f9babfb86564b9a64;hb=7248fd4470039dab59a8e3a95829952e91c0fd19;hpb=d539213774955a5593ec760f06022aeecf4e1abc

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index bb4c852..7be0865 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -61,11 +61,11 @@
 (define-class <gameobj> (<actor>)
   ;; location id
   (loc #:init-value #f
-       #:accessor gameobj-loc)
+       #:getter gameobj-loc)
   
   ;; Uses a hash table like a set (values ignored)
   (occupants #:init-thunk make-hash-table
-             #:accessor gameobj-occupants)
+             #:getter gameobj-occupants)
 
   ;; game master id
   (gm #:init-keyword #:gm
@@ -167,7 +167,7 @@
   (format #t "DEBUG: Location set to ~s for ~s\n"
           loc (actor-id-actor actor))
 
-  (set! (gameobj-loc actor) loc)
+  (slot-set! actor 'loc loc)
   ;; Change registation of where we currently are
   (if loc
       (<-wait actor loc 'add-occupant! #:who (actor-id actor)))