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

removed unused requires. thanks racket-trim-requires!

main
m455 2019-11-13 10:50:24 -05:00
parent 16a432aa28
commit 47cf6aeb6e
4 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
args.rkt
View File

@ -1,11 +1,10 @@
#lang racket/base #lang racket/base
(require (prefix-in vector: racket/vector) (require (prefix-in vector: racket/vector)
(prefix-in list: racket/list)
(prefix-in config: "config.rkt") (prefix-in config: "config.rkt")
(prefix-in init: "init.rkt") (prefix-in init: "init.rkt")
(prefix-in util: "util.rkt") (prefix-in messages: "messages.rkt")
(prefix-in messages: "messages.rkt")) (prefix-in util: "util.rkt"))
(provide (all-defined-out)) (provide (all-defined-out))

2
config.rkt
View File

@ -1,4 +1,4 @@
#lang racket/base #lang racket
(provide (all-defined-out)) (provide (all-defined-out))
(define program-name "rodo") (define program-name "rodo")

7
init.rkt
View File

@ -1,9 +1,8 @@
#lang racket/base #lang racket/base
(require (prefix-in file: racket/file) (require (prefix-in config: "config.rkt")
(prefix-in config: "config.rkt") (prefix-in messages: "messages.rkt")
(prefix-in util: "util.rkt") (prefix-in util: "util.rkt"))
(prefix-in messages: "messages.rkt"))
(provide (all-defined-out)) (provide (all-defined-out))

6
util.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require (prefix-in list: racket/list) (require (prefix-in file: racket/file)
(prefix-in file: racket/file) (prefix-in list: racket/list)
(prefix-in string: racket/string) (prefix-in string: racket/string)
(prefix-in config: "config.rkt") (prefix-in config: "config.rkt")
(prefix-in messages: "messages.rkt")) (prefix-in messages: "messages.rkt"))
@ -88,7 +88,7 @@
#:exists 'truncate)) #:exists 'truncate))
(display-item-added args)) (display-item-added args))
;; The cdr here prevents user commands, such as "add" from being added to the file ;; The cdr here prevents user commands, such as "add" being added to the file
(define (add-item-to-list a-file args) (define (add-item-to-list a-file args)
(if (and (program-directory-exists?) (if (and (program-directory-exists?)
(list-file-exists?)) (list-file-exists?))