From dff3e69814c4de49269d061383ca869f25295c46 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 9 Oct 2005 02:51:29 +0000 Subject: [PATCH] dont ignore checker body if not evaluating submission svn: r1029 --- collects/handin-server/doc.txt | 3 +++ collects/handin-server/extra-utils.ss | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/handin-server/doc.txt b/collects/handin-server/doc.txt index 48f00c51e2..f8539b71d3 100644 --- a/collects/handin-server/doc.txt +++ b/collects/handin-server/doc.txt @@ -674,6 +674,9 @@ Keywords for configuring `check:': below). * :eval? -- whether submissions should be evaluated. Defaults to #t. + Note that if it is specified as #f, then the checker body will not + be able to run any tests on the code, unless it contains code that + performs some evaluation (eg, using the facilities of "utils.ss"). * :language -- the language that is used for evaluating submissions, same as the `language' argument for `make-evaluator' (see above). diff --git a/collects/handin-server/extra-utils.ss b/collects/handin-server/extra-utils.ss index e535fc264e..83eaa6dd7b 100644 --- a/collects/handin-server/extra-utils.ss +++ b/collects/handin-server/extra-utils.ss @@ -349,7 +349,7 @@ body*1 body* (... ...))])]) (let () body ...)) (when (thread-cell-ref added-lines) (write-text))))] - [(not eval?) #t] + [(not eval?) (let () body ...)] [else (error* "no language configured for submissions")]) output-file) ;; ========================================