From 1e8ffde4a7545c22d7318b14fda633e84487fb9a Mon Sep 17 00:00:00 2001 From: elioat Date: Sun, 17 Dec 2023 11:48:09 -0500 Subject: * --- scratch/game.brev | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'scratch') diff --git a/scratch/game.brev b/scratch/game.brev index cc62149..0768b62 100644 --- a/scratch/game.brev +++ b/scratch/game.brev @@ -13,13 +13,12 @@ (define (listner game-running) (display " > ") (define user-input (read)) - (if (eq? user-input "quit") - ((set! game-running false) (print game-running)) - (print "continue")) + (if (string=? user-input "quit") + (set! game-running false) + (print user-input)) game-running) (let loop () - (if (eq? game-running true) - (listner game-running) - (print "game isn't running")) + (if (eqv? game-running true) + (listner game-running)) (loop)) \ No newline at end of file -- cgit 1.4.1-2-gfad0