projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update to use #:init-thunk instead of #:init-value on actions slot
[mudsync.git]
/
mudsync
/
gameobj.scm
diff --git
a/mudsync/gameobj.scm
b/mudsync/gameobj.scm
index 370ba47d2d67ecb104a9d37d0950a85dd6b81fa2..e4146931bc7f7b2b830b7369ac58bae162f953be 100644
(file)
--- a/
mudsync/gameobj.scm
+++ b/
mudsync/gameobj.scm
@@
-93,7
+93,7
@@
(actions #:allocation #:each-subclass
;;; Actions supported by all gameobj
(actions #:allocation #:each-subclass
;;; Actions supported by all gameobj
- #:init-
value
+ #:init-
thunk
(build-actions
(init gameobj-act-init)
;; Commands for co-occupants
(build-actions
(init gameobj-act-init)
;; Commands for co-occupants
@@
-314,7
+314,7
@@
By default, this is whether or not the generally-visible flag is set."
;; Boom!
(self-destruct gameobj))
;; Boom!
(self-destruct gameobj))
-(define
(gameobj-act-self-destruct gameobj message
)
+(define
* (gameobj-act-self-destruct gameobj message #:key why
)
"Action routine for self destruction"
(gameobj-self-destruct gameobj))
"Action routine for self destruction"
(gameobj-self-destruct gameobj))