organized functions into files

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))

init.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 
 (require "config.rkt"
-         "tools.rkt"
+         "util.rkt"
          "messages.rkt"
          "io.rkt")
 

tools.rkt

@@ -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)))

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