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

moved permissions comment

main
Jesse Laprade 2020-06-20 00:12:37 -04:00
parent d472c4c155
commit 73092cf307
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/rodo.rkt
View File

@ -16,7 +16,7 @@
(define program-name-dotted (string-append "." program-name)) (define program-name-dotted (string-append "." program-name))
(define home-directory-path (find-system-path 'home-dir)) (define home-directory-path (find-system-path 'home-dir))
(define program-path (build-path home-directory-path program-name-dotted)) (define program-path (build-path home-directory-path program-name-dotted))
(define correct-permissions 384) (define correct-permissions 384) ;; -rw------- permissions
(define message-prefix "> ") (define message-prefix "> ")
;; ------------------------------------------------ ;; ------------------------------------------------
@ -94,7 +94,6 @@
(for ([string strings]) (for ([string strings])
(displayln string))) (displayln string)))
;; -rw------- permissions
(define (file-has-correct-permissions? file) (define (file-has-correct-permissions? file)
(equal? correct-permissions (file-or-directory-permissions file 'bits))) (equal? correct-permissions (file-or-directory-permissions file 'bits)))