items are now added as single items instead of converting to a list, when adding to the todo list

main
m455 2018-04-28 09:56:30 -04:00
parent 22cecf9a11
commit 1d1afbfa78
1 changed files with 2 additions and 3 deletions

View File

@ -36,8 +36,7 @@
(define (number-list lst) (define (number-list lst)
(map string-append (map string-append
(map number->string (map number->string (rest (range (length lst))))
(rest (range (length lst))))
(rest lst))) (rest lst)))
(define (indent-list) (define (indent-list)
@ -67,7 +66,7 @@
(define (add-item-to-file args) (define (add-item-to-file args)
(let ([new-list (let ([new-list
(reverse (reverse
(append (list args) (cons args
(reverse (file->string-list path))))]) (reverse (file->string-list path))))])
(display-to-file (display-to-file
(string-join new-list "\n" #:after-last "\n") (string-join new-list "\n" #:after-last "\n")