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

removed an error

main
m455 2018-04-05 23:48:41 -04:00
parent 375a67718f
commit 041ae59c96
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rodo.rkt
View File

@ -8,7 +8,7 @@
(define program-path "~/") (define program-path "~/")
(define (d-hash-ref hash-list key) (define (d-hash-ref hash-list key)
(display (hash-ref messages key))) (display (hash-ref hash-list key)))
(define (d-vector-ref args key) (define (d-vector-ref args key)
(display (vector-ref args key))) (display (vector-ref args key)))
@ -78,8 +78,7 @@
(define (open/create-file) (define (open/create-file)
(let ([path (expand-user-path (string-append (let ([path (expand-user-path (string-append
program-path program-path
program-directory program-directory))])
list-name))])
(let ([opened-file (open-output-file path (let ([opened-file (open-output-file path
#:mode 'text #:mode 'text
#:exists 'can-update)]) #:exists 'can-update)])