From: Christopher Allan Webber Date: Mon, 2 May 2016 16:10:09 +0000 (-0500) Subject: refactoring commands slots X-Git-Tag: fosdem-2017~199 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=d9edc0edd5263888911dae51c113cb536b5c62f2;p=mudsync.git refactoring commands slots --- diff --git a/mudsync.scm b/mudsync.scm index a15f5b9..35cc0be 100644 --- a/mudsync.scm +++ b/mudsync.scm @@ -398,7 +398,9 @@ with an anonymous persona" #:init-value '()) ;; Commands we can handle - (commands #:init-value #f) + (dirobj-commands #:init-value '()) + (indirobj-commands #:init-value '()) + ;; Commands we can handle by being something's container (contain-commands #:init-value #f)) @@ -489,10 +491,10 @@ with an anonymous persona" (define %room-contain-commands (list - (command "look" cmatch-just-verb always 'look-room) - (command "look" cmatch-direct-obj always 'look-member) - (command "go" cmathc-just-verb always 'go-where) - (command "go" cmatch-direct-obj always 'go-exit))) + (full-command "look" cmatch-just-verb always 'look-room) + (full-command "look" cmatch-direct-obj always 'look-member) + (full-command "go" cmathc-just-verb always 'go-where) + (full-command "go" cmatch-direct-obj always 'go-exit))) (define (room-wire-exits! room message) @@ -520,7 +522,7 @@ claim to point to." (client #:accessor player-client) (self-commands - #:init-value #f ; TODO: Set me to a reasonable default + #:init-value '() #:accessor player-self-commands) (message-handler