From 8ebf009e1839cca1498e31559543c08ac55a0494 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 12 Sep 2005 16:25:00 +0000 Subject: [PATCH] two path bugs svn: r837 --- collects/handin-server/handin-server.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/handin-server/handin-server.ss b/collects/handin-server/handin-server.ss index ce12ee75b2..cf1ebe0e62 100644 --- a/collects/handin-server/handin-server.ss +++ b/collects/handin-server/handin-server.ss @@ -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))])