From bb606754408d60c60ae11f0734da4ed982a8d044 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 20 Sep 2005 03:21:36 +0000 Subject: [PATCH] check that cleanup dir exists svn: r884 --- collects/handin-server/handin-server.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/handin-server/handin-server.ss b/collects/handin-server/handin-server.ss index 7de305562d..30cb410583 100644 --- a/collects/handin-server/handin-server.ss +++ b/collects/handin-server/handin-server.ss @@ -130,8 +130,9 @@ (lambda (e) (LOG "*** ERROR DURING (cleanup-submission ~s) : ~a" dir (if (exn? e) (exn-message e) e)))]) - (parameterize ([current-directory dir]) - (call-with-semaphore cleanup-sema cleanup-submission-body)))) + (when (directory-exists? dir) ; submissions can fail before mkdir + (parameterize ([current-directory dir]) + (call-with-semaphore cleanup-sema cleanup-submission-body))))) (define (cleanup-all-submissions) (LOG "Cleaning up all submission directories")