diff options
| -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 |