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

when there is an error in loading, just log it, so the code can be fixed instead of killing the server

Browse Source 
svn: r13287
This commit is contained in:
Eli Barzilay 2009-01-26 20:55:36 +00:00
parent 5970ccb8fc
commit f2fb56d07f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,8 +10,13 @@
(log-line "(re)loading module from ~a" modspec)
(parameterize ([current-module-declare-name name]
[compile-enforce-module-constants #f])
(namespace-require '(only mzscheme module #%top-interaction))
(load/use-compiled path))))
;; only notify, it's fine to reset the file timer, since there's no point
;; in attempting to reload it yet again until it is edited.
(with-handlers ([exn? (lambda (e)
(log-line "error, module not reloaded (~a)"
(exn-message e)))])
(namespace-require '(only mzscheme module #%top-interaction))
(load/use-compiled path)))))
;; pulls out a value from a module, reloading the module if its source file was
;; modified