(actions #:allocation #:each-subclass
;;; Actions supported by all gameobj
- #:init-value
+ #:init-thunk
(build-actions
(init gameobj-act-init)
;; Commands for co-occupants
;; 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))