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

ELI

Browse Source 
svn: r4905
This commit is contained in:
Jay McCarthy 2006-11-21 03:58:09 +00:00
parent 04c0daf572
commit 91aaeb95f5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/handin-server/web-status-server.ss
View File

@ -58,9 +58,10 @@
(let ([file (make-temporary-file)]) (let ([file (make-temporary-file)])
(with-output-to-file file (lambda () (write config)) 'truncate) (with-output-to-file file (lambda () (write config)) 'truncate)
(begin0 (load-configuration file) (delete-file file)))) (begin0 (load-configuration file) (delete-file file))))
#; ; This is not working yet #; ; This is working now
(define config@ (define config@
(load-configuration-sexpr config (load-configuration-sexpr
web-dir config
#:make-servlet-namespace #:make-servlet-namespace
(make-make-servlet-namespace (make-make-servlet-namespace
#:to-be-copied-module-specs #:to-be-copied-module-specs