summaryrefslogtreecommitdiff
path: root/test-subject
diff options
context:
space:
mode:
Diffstat (limited to 'test-subject')
-rw-r--r--test-subject/game.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/test-subject/game.scm b/test-subject/game.scm
index ba928c8..cb89559 100644
--- a/test-subject/game.scm
+++ b/test-subject/game.scm
@@ -74,11 +74,11 @@
(set! (window-conversation-done? game) #f)
(set! (friendship game) 0)
(set! (cartridge game) 'in-fridge)
- (set! (click-channel game) (make-channel))
(set! (terminal-locked? game) #t)
- (set! (terminal-channel game) (make-channel))
- (set! (terminal-lines game) (make-ring-buffer 17))
- (set! (key-pad-locked? game) #t))
+ (set! (key-pad-locked? game) #t)
+ (channel-clear! (click-channel game))
+ (channel-clear! (terminal-channel game))
+ (ring-buffer-clear! (terminal-lines game)))
(define-method (reboot (game <game>))
(reset-game game)