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

check that cleanup dir exists

Browse Source 
svn: r884
This commit is contained in:
Eli Barzilay 2005-09-20 03:21:36 +00:00
parent 04bc38a3fd
commit bb60675440
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -130,8 +130,9 @@
(lambda (e) (lambda (e)
(LOG "*** ERROR DURING (cleanup-submission ~s) : ~a" (LOG "*** ERROR DURING (cleanup-submission ~s) : ~a"
dir (if (exn? e) (exn-message e) e)))]) dir (if (exn? e) (exn-message e) e)))])
(when (directory-exists? dir) ; submissions can fail before mkdir
(parameterize ([current-directory dir]) (parameterize ([current-directory dir])
(call-with-semaphore cleanup-sema cleanup-submission-body)))) (call-with-semaphore cleanup-sema cleanup-submission-body)))))
(define (cleanup-all-submissions) (define (cleanup-all-submissions)
(LOG "Cleaning up all submission directories") (LOG "Cleaning up all submission directories")