diff options
| author | elioat <hi@eli.li> | 2023-12-17 11:48:09 -0500 |
|---|---|---|
| committer | elioat <hi@eli.li> | 2023-12-17 11:48:09 -0500 |
| commit | 1e8ffde4a7545c22d7318b14fda633e84487fb9a (patch) | |
| tree | 78703b3e571e619d334d4726f34aa7d14dc112b2 | |
| parent | acdc3b0d78bf26f9a314e96151fb72b13b6418a5 (diff) | |
| download | december-2023-1e8ffde4a7545c22d7318b14fda633e84487fb9a.tar.gz | |
*
| -rw-r--r-- | scratch/game.brev | 11 |
1 files changed, 5 insertions, 6 deletions
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 |