From ddb16c01b838a94f8e39ccd23bb995ffcd1fce29 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 29 Apr 2021 08:22:33 -0400 Subject: Clear channels and ring buffers on reset rather than making new ones. --- test-subject/game.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test-subject/game.scm') 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 )) (reset-game game) -- cgit v1.2.3