From f0a958e45b6c15517ab21a8bccd21932bd2dc1c0 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 16 Jan 2007 04:28:32 +0000 Subject: [PATCH] misc svn: r5359 --- collects/handin-server/checker.ss | 5 ++--- collects/handin-server/doc.txt | 13 +++++++------ 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/collects/handin-server/checker.ss b/collects/handin-server/checker.ss index 7067f79ef2..d184b803ec 100644 --- a/collects/handin-server/checker.ss +++ b/collects/handin-server/checker.ss @@ -689,9 +689,8 @@ [(_ expr result equal?) (let ([val ((submission-eval) `expr)]) (unless (equal? result val) - (error* - "your code failed a test: ~a evaluated to ~a, expecting ~a" - (->disp 'expr) (->disp val) (->disp result))))])) + (error* "your code failed a test: ~a evaluated to ~a, expecting ~a" + (->disp 'expr) (->disp val) (->disp result))))])) (provide !all-covered) (define (!all-covered) diff --git a/collects/handin-server/doc.txt b/collects/handin-server/doc.txt index 054c70c3d1..82f912e1b3 100644 --- a/collects/handin-server/doc.txt +++ b/collects/handin-server/doc.txt @@ -705,13 +705,14 @@ _utils.ss_ submission byte string. The byte string is opened for reading, with line-counting enabled. -> (call-with-evaluator language teachpack-paths program-port proc) +> (call-with-evaluator language teachpack-paths input-program proc) Calls `proc' with an evaluator for the given language, teachpack - paths, and initial definition content as supplied by a port. It - also sets the current error-value print handler to print values in a - way suitable for `lang', it initializes `current-run-status' with - "executing your code", and it catches all exceptions to re-raise - them in a form suitable as a submission error. + paths, and initial definition content as supplied by input-program + (see `make-evaluator'). It also sets the current error-value print + handler to print values in a way suitable for `lang', it initializes + `current-run-status' with "executing your code", and it catches all + exceptions to re-raise them in a form suitable as a submission + error. > (call-with-evaluator/submission language teachpack-paths bytes proc) Like `call-with-evaluator', but the definitions content is supplied