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

two path bugs

Browse Source 
svn: r837
This commit is contained in:
Eli Barzilay 2005-09-12 16:25:00 +00:00
parent 32be056d1d
commit 8ebf009e18
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/handin-server/handin-server.ss
View File

@ -198,8 +198,8 @@
MAX-UPLOAD len))
(parameterize ([current-directory (build-path "active" assignment)])
(wait-for-lock dirname
(lambda ()
(cleanup-submission (build-path (current-directory) dirname))))
(let ([dir (build-path (current-directory) dirname)])
(lambda () (cleanup-submission dir))))
(when (and (pair? users) (pair? (cdr users)))
;; two or more users -- lock each one
(for-each wait-for-lock users))
@ -235,9 +235,9 @@
;; Result is either a string or list of strings:
(let ([checker (build-path 'up "checker.ss")])
(if (file-exists? checker)
(parameterize ([current-directory ATTEMPT-DIR])
((dynamic-require (path->complete-path checker) 'checker)
users s))
(let ([checker (path->complete-path checker)])
(parameterize ([current-directory ATTEMPT-DIR])
((dynamic-require checker 'checker) users s)))
DEFAULT-FILE-NAME))])
(ffprintf w "confirm\n")
(let ([v (read (make-limited-input-port r 50))])