;;; along with Mudsync. If not, see <http://www.gnu.org/licenses/>.
(use-modules (mudsync)
- (8sync systems actors)
+ (8sync actors)
(8sync agenda)
(oop goops)
(ice-9 format))
(wrap-apply typewriter-dispatch)))
(define (typewriter-cmd-type-gibberish actor message)
- (<- actor (message-from message) 'tell
+ (<- (message-from message) 'tell
#:text "*tikka takka!* *tikka takka!*
You type some gibberish on the typewriter.\n"))
(define (type-thing actor message type-text)
- (<- actor (message-from message) 'tell
+ (<- (message-from message) 'tell
#:text
(format #f "You type out a note.\nThe note says: ~s\n"
type-text)))