tildetown/rodo
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed prompt-user function

Browse Source
This commit is contained in:
m455 2018-04-06 00:23:30 -04:00
parent ca1d6d0fc4
commit 7510ad5fa0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rodo.rkt
View File

@ -125,8 +125,8 @@
program-path program-path
program-directory)))) program-directory))))
(define (prompt-user chosen-message) (define (prompt-user hash-list key)
(d-hash-ref messages chosen-message) (d-hash-ref hash-list key)
(display "> ") (display "> ")
(let (let
([user-input (read-line)]) ([user-input (read-line)])
@ -142,7 +142,7 @@
(d-hash-ref messages 'terminating)] (d-hash-ref messages 'terminating)]
[else [else
(prompt-user 'choose-y/n)]))) (prompt-user messages 'choose-y/n)])))
(define (add-item args) (define (add-item args)
(if (check-for-folder) (if (check-for-folder)
@ -191,7 +191,7 @@
(d-hash-ref messages 'already-exists) (d-hash-ref messages 'already-exists)
(begin (begin
(d-hash-ref messages 'not-found) (d-hash-ref messages 'not-found)
(prompt-user 'setup-y/n)))) (prompt-user messages 'setup-y/n))))
(define (main) (define (main)
(check-args (current-command-line-arguments))) (check-args (current-command-line-arguments)))