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

check handin-server directory exists

Browse Source 
svn: r11807
This commit is contained in:
Eli Barzilay 2008-09-18 19:13:25 +00:00
parent bab55e4e20
commit d44850f515
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,11 @@
;; This module should be invoked when we're in the server directory ;; This module should be invoked when we're in the server directory
(provide server-dir) (provide server-dir)
(define server-dir (or (getenv "PLT_HANDINSERVER_DIR") (current-directory))) (define server-dir
(let ([dir (or (getenv "PLT_HANDINSERVER_DIR") (current-directory))])
(if (directory-exists? dir)
dir
(error 'config "handin server directory does not exist: ~e" dir))))
(define config-file (path->complete-path "config.ss" server-dir)) (define config-file (path->complete-path "config.ss" server-dir))