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

updated via script

main
m455 2018-04-09 21:35:13 -04:00
parent 9dd54a3186
commit 656089add8
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rodo.rkt
View File

@ -140,7 +140,8 @@
program-file))]) program-file))])
(let (let
([opened-file ([opened-file
(open-output-file path (open-output-file
path
#:mode 'text #:mode 'text
#:exists 'can-update)]) #:exists 'can-update)])
(close-output-port opened-file)))) (close-output-port opened-file))))
@ -181,8 +182,8 @@
#:line-mode 'linefeed)]) #:line-mode 'linefeed)])
(display (display
(string-join (string-join
(map (add-bullets) (map (add-bullets) todo-items)
todo-items) "\n" "\n"
#:after-last "\n"))))) #:after-last "\n")))))
(define (show-list) (define (show-list)