;; Kind of a useful utility, maybe?
(define (simple-slot-getter slot)
(lambda (actor message)
- (reply-message actor message
- #:val (slot-ref actor slot))))
+ (<-reply actor message
+ #:val (slot-ref actor slot))))
(define (gameobj-replace-step-occupants actor replace-reply)
(define occupants
#:symbol special-symbol)
'val))
;; if it's false, return nothing
- ((#f #f))
+ (#f #f)
;; otherwise it's probably an address, return it as-is
(_ special-symbol)))