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

wut

main
m455 2018-04-05 22:54:57 -04:00
parent 751dc788d1
commit ab36665f27
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rodo.rkt
View File

@ -70,8 +70,6 @@
'terminating (string-append "> Exiting " program-name " ...\n"))) 'terminating (string-append "> Exiting " program-name " ...\n")))
;; some possible user-input related "mistakes" that
;; will be accepted for input
(define y/n (define y/n
(hash (hash
'yes '("yes" "Yes" "y" "Y") 'yes '("yes" "Yes" "y" "Y")
@ -97,7 +95,6 @@
program-path program-path
program-directory)))) program-directory))))
;; prompt user for file initial file creation
(define (prompt-user chosen-message) (define (prompt-user chosen-message)
(d-hash-ref messages chosen-message) (d-hash-ref messages chosen-message)
(display "> ") (display "> ")
@ -142,7 +139,6 @@
[else (d-hash-ref messages 'incorrect-usage)]))) [else (d-hash-ref messages 'incorrect-usage)])))
;; does the file exist that holds the list(s?)
(define (todo-folder-exist?) (define (todo-folder-exist?)
(if (check-for-folder) (if (check-for-folder)
(d-hash-ref messages 'already-exists) (d-hash-ref messages 'already-exists)