projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove all accessors
[mudsync.git]
/
mudsync
/
gameobj.scm
diff --git
a/mudsync/gameobj.scm
b/mudsync/gameobj.scm
index bb4c8520628ba0a0b4dcb56f9babfb86564b9a64..7be08654a72e0e5bec190d9df03ddcf7ba208313 100644
(file)
--- a/
mudsync/gameobj.scm
+++ b/
mudsync/gameobj.scm
@@
-61,11
+61,11
@@
(define-class <gameobj> (<actor>)
;; location id
(loc #:init-value #f
(define-class <gameobj> (<actor>)
;; location id
(loc #:init-value #f
- #:
accesso
r gameobj-loc)
+ #:
gette
r gameobj-loc)
;; Uses a hash table like a set (values ignored)
(occupants #:init-thunk make-hash-table
;; Uses a hash table like a set (values ignored)
(occupants #:init-thunk make-hash-table
- #:
accesso
r gameobj-occupants)
+ #:
gette
r gameobj-occupants)
;; game master id
(gm #:init-keyword #:gm
;; 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))
(format #t "DEBUG: Location set to ~s for ~s\n"
loc (actor-id-actor actor))
- (s
et! (gameobj-loc actor)
loc)
+ (s
lot-set! actor 'loc
loc)
;; Change registation of where we currently are
(if loc
(<-wait actor loc 'add-occupant! #:who (actor-id actor)))
;; Change registation of where we currently are
(if loc
(<-wait actor loc 'add-occupant! #:who (actor-id actor)))