suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

break cycle

Browse Source 
svn: r5488
This commit is contained in:
Eli Barzilay 2007-01-29 01:28:11 +00:00
parent 7bf793352c
commit aa685ff9c4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/handin-server/private/config.ss
View File

@ -27,7 +27,10 @@
(error 'get-conf (error 'get-conf
"could not read conf (~a)" "could not read conf (~a)"
config-file))]) config-file))])
(log-line "(re)loading configuration from ~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))
(with-input-from-file config-file read))) (with-input-from-file config-file read)))
(set! config-cache (make-hash-table))))) (set! config-cache (make-hash-table)))))
(hash-table-get config-cache key (hash-table-get config-cache key