;; Kind of a useful utility, maybe?
(define (simple-slot-getter slot)
(lambda (actor message)
- (<-reply actor message
- #:val (slot-ref actor slot))))
+ (<-reply actor message (slot-ref actor slot))))
(define (gameobj-replace-step-occupants actor occupants)
;; Snarf all the occupants!
#:occupants occupants))
(define (gameobj-act-get-loc actor message)
- (<-reply actor message
- #:val (slot-ref actor 'loc)))
+ (<-reply actor message (slot-ref actor 'loc)))
(define (gameobj-set-loc! gameobj loc)
"Set the location of this object."
(define gameobj-get-name (simple-slot-getter 'name))
-(define* (gameobj-act-set-name! actor message #:key val)
+(define* (gameobj-act-set-name! actor message val)
(slot-set! actor 'name val))
(define* (gameobj-get-desc actor message #:key whos-looking)
((? procedure? desc-proc)
(desc-proc actor whos-looking))
(desc desc)))
- (<-reply actor message #:val desc-text))
+ (<-reply actor message desc-text))
(define (gameobj-visible-to-player? gameobj whos-looking)
"Check to see whether we're visible to the player or not.
(match special-symbol
;; if it's a symbol, look it up dynamically
((? symbol? _)
- (msg-receive (_ #:key val)
- (<-wait gameobj (slot-ref gameobj 'gm) 'lookup-special
- #:symbol special-symbol)
- val))
+ (msg-val (<-wait gameobj (slot-ref gameobj 'gm) 'lookup-special
+ #:symbol special-symbol)))
;; if it's false, return nothing
(#f #f)
;; otherwise it's probably an address, return it as-is