blob: 0768b629f3a10267d864b203f89bd120e1643e2a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(import brev mdg)
(define true #t)
(define false #f)
(define game-running true)
(define (menu msg)
(print msg))
(define start-game "start game")
(define game-over "game over")
(define (listner game-running)
(display " > ")
(define user-input (read))
(if (string=? user-input "quit")
(set! game-running false)
(print user-input))
game-running)
(let loop ()
(if (eqv? game-running true)
(listner game-running))
(loop))
|