X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=e4146931bc7f7b2b830b7369ac58bae162f953be;hp=370ba47d2d67ecb104a9d37d0950a85dd6b81fa2;hb=106536778bbd8ad0cc850cb3ef7dcc5e2499eee2;hpb=5b9d1025df991e96148eeefe5fb9653e033e7f82

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 370ba47..e414693 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -93,7 +93,7 @@
 
   (actions #:allocation #:each-subclass
            ;;; Actions supported by all gameobj
-           #:init-value
+           #:init-thunk
            (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))
 
-(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))