From 6732328d0efb666ae0dfaf8d85d29ca96d978cf1 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 28 Jan 2017 15:38:43 -0600 Subject: [PATCH] Fix up default-objection in cmd-take-from --- mudsync/gameobj.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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) -- 2.31.1