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

removed unused function

main
m455 2019-01-31 22:56:48 -05:00
parent 081392eb63
commit 45f8c22e1a
2 changed files with 49 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
messages.rkt
View File

@ -6,9 +6,9 @@
(define messages (define messages
(hash (hash
'show-help 'show-help (string-append
(string-append config:initialize-command
config:initialize-command ":\n" " - "
"initialize a file in " "initialize a file in "
config:program-path config:program-path
config:program-directory config:program-directory

7
util.rkt
View File

@ -33,9 +33,6 @@
(define (display-hash-ref hash-list key) (define (display-hash-ref hash-list key)
(display (hash-ref hash-list key))) (display (hash-ref hash-list key)))
(define (d-vector-ref args key)
(display (vector-ref args key)))
(define (file->string-list config:path-to-file) (define (file->string-list config:path-to-file)
(let ([todo-list (file:file->lines config:path-to-file (let ([todo-list (file:file->lines config:path-to-file
#:mode 'text #:mode 'text
@ -54,7 +51,9 @@
(define (prefix-with-number lst) (define (prefix-with-number lst)
(map string-append (map string-append
(map number->string (list:rest (list:range (length lst)))) (map number->string
(list:rest
(list:range (length lst))))
(list:rest lst))) (list:rest lst)))
(define (prefix-with-period lst) (define (prefix-with-period lst)