wut
parent
ab36665f27
commit
375a67718f
2
rodo.rkt
2
rodo.rkt
|
@ -75,7 +75,7 @@
|
||||||
'yes '("yes" "Yes" "y" "Y")
|
'yes '("yes" "Yes" "y" "Y")
|
||||||
'no '("no" "No" "n" "N")))
|
'no '("no" "No" "n" "N")))
|
||||||
|
|
||||||
(define (open/create-file list-name)
|
(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
|
||||||
|
|
Loading…
Reference in New Issue