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

log lines when reloading modules or configuration

Browse Source 
svn: r5487
This commit is contained in:
Eli Barzilay 2007-01-29 01:16:04 +00:00
parent 7ab052ebb9
commit 7bf793352c
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
(module config mzscheme
(require (lib "file.ss") (lib "list.ss"))
(require (lib "file.ss") (lib "list.ss") "logger.ss")
;; This module should be invoked when we're in the server directory
(provide server-dir)
@ -27,6 +27,7 @@
(error 'get-conf
"could not read conf (~a)"
config-file))])
(log-line "(re)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

3
collects/handin-server/private/reloadable.ss
View File

@ -1,6 +1,6 @@
(module reloadable mzscheme
(require (lib "moddep.ss" "syntax"))
(require (lib "moddep.ss" "syntax") "logger.ss")
(provide reload-module)
(define (reload-module modspec path)
@ -14,6 +14,7 @@
"unexpected module name for ~e: ~e" modspec name))]
[prefix (let-values ([(base name dir?) (split-path name)])
(string->symbol (format ",~a" base)))])
(log-line "(re)loading module from ~a" modspec)
(parameterize ([current-module-name-prefix prefix]
[compile-enforce-module-constants #f])
(load/use-compiled path))))