;;; ----------
(define-class <fridge> (<gameobj>)
- #:name "fridge"
- #:desc "The refrigerator is humming. To you? To itself?
-Only the universe knows.")
+ (name #:init-value "fridge")
+ (desc #:init-value "The refrigerator is humming. To you? To itself?
+Only the universe knows."))
;;; The typewriter
(define (type-thing actor message type-text)
(<- actor (message-from message) 'tell
#:text
- (format #f "You type out a note.\nThe note says: ~s"
+ (format #f "You type out a note.\nThe note says: ~s\n"
type-text)))
(define-mhandler (typewriter-cmd-type-something