Move the definition of "log" so that I don't have circular

dependencies.

Not even sure why I have this anyway.

loop.rkt

@@ -3,7 +3,7 @@
 #lang scheme
 
 (require srfi/19
-         "vars.rkt"
+         (except-in "vars.rkt" log)
          "git-version.rkt"
          (except-in "iserver.rkt" main)
          "reloadable.rkt")

servers.rkt

@@ -10,7 +10,7 @@ fi
 #lang scheme
 
 (require "loop.rkt"
-         "vars.rkt"
+         (except-in "vars.rkt" log)
          "git-version.rkt"
          (except-in "quotes.rkt" main)
          (except-in "clearenv.rkt" main)

utils.rkt

@@ -1,8 +1,8 @@
 #lang scheme/base
 
 (require scheme/match scheme/system scheme/promise
-         (for-syntax scheme/base syntax/boundmap)
-         "vars.rkt")
+         (for-syntax scheme/base syntax/boundmap))
+
 (provide from-env run-command call-with-PATH defmatcher domatchers defautoloads)
 
 ;; this is used when this module is loaded, before `clearenv' is called
@@ -61,7 +61,3 @@
      (begin (defautoloads (lib var)) ...)]
     [(_ [lib var ...] ...)
      (begin (defautoloads (lib var ...)) ...)]))
-
-(provide log)
-(define (log fmt . args)
-  (apply (*logger*) fmt args))

vars.rkt

@@ -45,6 +45,11 @@
 (define *logger*          (make-parameter #f))
 (define *incubot-logger*  (make-parameter #f))
 
+(provide log)
+(define (log fmt . args)
+  (apply (*logger*) fmt args))
+
+
 ;; Maybe I should use rnrs/enums-6 to guard against typos
 (define *authentication-state* (box 'havent-even-tried))