diff --git a/args.rkt b/args.rkt index d5cbf87..395c8ac 100644 --- a/args.rkt +++ b/args.rkt @@ -2,9 +2,8 @@ (require racket/vector "config.rkt" - "todo-file.rkt" "init.rkt" - "tools.rkt" + "util.rkt" "messages.rkt") (provide (all-defined-out)) diff --git a/init.rkt b/init.rkt index 3013ca1..a4fbb72 100644 --- a/init.rkt +++ b/init.rkt @@ -1,7 +1,7 @@ #lang racket/base (require "config.rkt" - "tools.rkt" + "util.rkt" "messages.rkt" "io.rkt") diff --git a/tools.rkt b/tools.rkt deleted file mode 100644 index b64b254..0000000 --- a/tools.rkt +++ /dev/null @@ -1,11 +0,0 @@ -#lang racket/base - -(require "config.rkt") - -(provide (all-defined-out)) - -(define (d-hash-ref hash-list key) - (display (hash-ref hash-list key))) - -(define (d-vector-ref args key) - (display (vector-ref args key))) diff --git a/todo-file.rkt b/util.rkt similarity index 93% rename from todo-file.rkt rename to util.rkt index a588a3c..6b5024e 100644 --- a/todo-file.rkt +++ b/util.rkt @@ -5,11 +5,16 @@ racket/string "config.rkt" "io.rkt" - "tools.rkt" "messages.rkt") (provide (all-defined-out)) +(define (d-hash-ref hash-list key) + (display (hash-ref hash-list key))) + +(define (d-vector-ref args key) + (display (vector-ref args key))) + (define (make-numbered lst) (map string-append