(actions #:allocation #:each-subclass
;;; Actions supported by all gameobj
- #:init-value
+ #:init-thunk
(build-actions
(init gameobj-act-init)
;; Commands for co-occupants
;; A list of addresses... since our address object is (annoyingly)
;; currently a simple cons cell...
((exclude-1 ... exclude-rest)
- (pk 'failboat (member occupant (pk 'exclude-lst exclude))))
+ (member occupant exclude))
;; Must be an individual address!
(_ (equal? occupant exclude))))
(if exclude-it?
;; 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))