From 43b7b943975efaa66e6be19f763240c6b83b9202 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Sun, 9 Jul 2023 22:59:29 -0700 Subject: [PATCH] Fixing crashes caused by misunderstanding cond --- gib-gab-gob/game.scm | 4 ++-- gib-gab-gob/ui/console.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gib-gab-gob/game.scm b/gib-gab-gob/game.scm index 9b9a58d..50f3489 100644 --- a/gib-gab-gob/game.scm +++ b/gib-gab-gob/game.scm @@ -14,8 +14,8 @@ (define %my-turn? first?) (define (%state) (cond - ((board-winner? board mark) => 'won) - ((board-winner? board peer-mark) => 'lost) + ((board-winner? board mark) 'won) + ((board-winner? board peer-mark) 'lost) (else 'play))) (define (signal-turn) ;; any better way to do this? diff --git a/gib-gab-gob/ui/console.scm b/gib-gab-gob/ui/console.scm index 746606b..b6b1a88 100644 --- a/gib-gab-gob/ui/console.scm +++ b/gib-gab-gob/ui/console.scm @@ -54,8 +54,8 @@ (define (%display b state) (board-display b) (cond - ((eq? state 'won) => (format #t "*** I won! ***\n")) - ((eq? state 'lost) => (format #t "*** I lost! ***\n")))) + ((eq? state 'won) (format #t "*** I won! ***\n")) + ((eq? state 'lost) (format #t "*** I lost! ***\n")))) (define (begin-game-loop board controller my-turn+) (define vat (spawn-vat #:name "UI"))