From a742c67ab6afc3fddb22dc7bdf54d3947b059dcf Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 29 Jan 2007 01:36:29 +0000 Subject: [PATCH] really solve the cycle, show config only when *re*loading svn: r5489 --- collects/handin-server/private/config.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/handin-server/private/config.ss b/collects/handin-server/private/config.ss index 7b9403fb3f..8ffd99c7f1 100644 --- a/collects/handin-server/private/config.ss +++ b/collects/handin-server/private/config.ss @@ -1,5 +1,5 @@ (module config mzscheme - (require (lib "file.ss") (lib "list.ss") "logger.ss") + (require (lib "file.ss") (lib "list.ss")) ;; This module should be invoked when we're in the server directory (provide server-dir) @@ -27,10 +27,11 @@ (error 'get-conf "could not read conf (~a)" config-file))]) - ;; can't use log-line from logger, since it makes a cycle - (fprintf (current-error-port) - (format "(re)loading configuration from ~a" - config-file)) + (when raw-config + ;; can't use log-line from logger, since it makes a cycle + (fprintf (current-error-port) + (format "loading configuration from ~a" + config-file))) (with-input-from-file config-file read))) (set! config-cache (make-hash-table))))) (hash-table-get config-cache key