From b1442e74c42dcbf2e7c1f087bf915c9c8e8ed3a2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 17 Jan 2006 10:40:06 +0000
Subject: [PATCH] deal with :eval? properly

svn: r1846
---
 collects/handin-server/extra-utils.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/handin-server/extra-utils.ss b/collects/handin-server/extra-utils.ss
index f6c19fe229..3f0eebafec 100644
--- a/collects/handin-server/extra-utils.ss
+++ b/collects/handin-server/extra-utils.ss
@@ -341,6 +341,7 @@
                  (when coverage? (coverage-enabled #t))
                  (current-run-status "checking submission")
                  (cond
+                  [(not eval?) (let () body ...)]
                   [language
                    (let ([eval
                           (with-handlers
@@ -373,7 +374,6 @@
                                           body*1 body* (... ...))])])
                          (let () body ...))
                        (when (thread-cell-ref added-lines) (write-text))))]
-                  [(not eval?) (let () body ...)]
                   [else (error* "no language configured for submissions")])
                  output-file)
                ;; ========================================