From: Christopher Allan Webber Date: Sat, 28 Jan 2017 21:38:43 +0000 (-0600) Subject: Fix up default-objection in cmd-take-from X-Git-Tag: fosdem-2017~56 X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=commitdiff_plain;h=6732328d0efb666ae0dfaf8d85d29ca96d978cf1 Fix up default-objection in cmd-take-from --- diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm index 6c73912..55b76bb 100644 --- a/mudsync/gameobj.scm +++ b/mudsync/gameobj.scm @@ -519,7 +519,7 @@ By default, this is whether or not the generally-visible flag is set." (slot-ref-maybe-runcheck gameobj 'take-from-me? player this-thing))) (define (default-objection) `("Unfortunately, it doesn't seem like you can take " - (this-thing-name) " " preposition " " our-name ".")) + ,(this-thing-name) " " ,preposition " " ,our-name ".")) (define (this-thing-objection) (mbody-receive (_ taken-ok? #:key why-not) ; does the object object to being removed? @@ -536,7 +536,6 @@ By default, this is whether or not the generally-visible flag is set." (<- player 'tell #:text `("It's not really clear how to take something " ,preposition " " ,our-name "."))) - ;; Unfortunately this does leak information about what is contained ;; by us. Maybe not what's wanted in all circumstances. ((not this-thing)