changed some parameter names
parent
55a540357d
commit
1f98bbd8c4
4
rodo.rkt
4
rodo.rkt
|
@ -51,8 +51,8 @@
|
||||||
(close-output-port opened-file))))
|
(close-output-port opened-file))))
|
||||||
|
|
||||||
;; talk with user if something goes wrong/right
|
;; talk with user if something goes wrong/right
|
||||||
(define (prompt-initialize prompt-message)
|
(define (prompt-initialize chosen-message)
|
||||||
(d-hash-ref messages prompt-message)
|
(d-hash-ref messages chosen-message)
|
||||||
(display "> ")
|
(display "> ")
|
||||||
(let ([user-input (read-line)])
|
(let ([user-input (read-line)])
|
||||||
(cond
|
(cond
|
||||||
|
|
Loading…
Reference in New Issue