X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=11de8d3cce86604c7ba3ca4dacf7394745a23bba;hp=44602dfb5463d5dfe5c4e0cd4d655b88c8e8b0c9;hb=010c6322cd8fa4bda1b3e6c58e521f16a9c66169;hpb=ed1ef3172af4c2621e2b746824b7defa6f0dcedd

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 44602df..11de8d3 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -225,7 +225,7 @@ Assists in its replacement of occupants if necessary and nothing else."
          ;; 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?
@@ -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))