summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-04-29 08:22:33 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-04-29 08:22:33 -0400
commitddb16c01b838a94f8e39ccd23bb995ffcd1fce29 (patch)
tree0e084bc3c2a8f89079f9e1467ae9eff9f70dede9
parentcad95e16d21825b23c3132e27ba5fac39f81067f (diff)
Clear channels and ring buffers on reset rather than making new ones.
-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)