diff options
| -rw-r--r-- | test-subject/game.scm | 8 |
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) |