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

misc

Browse Source 
svn: r5359
This commit is contained in:
Eli Barzilay 2007-01-16 04:28:32 +00:00
parent cf67b9672a
commit f0a958e45b
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -689,8 +689,7 @@
[(_ expr result equal?) [(_ expr result equal?)
(let ([val ((submission-eval) `expr)]) (let ([val ((submission-eval) `expr)])
(unless (equal? result val) (unless (equal? result val)
(error* (error* "your code failed a test: ~a evaluated to ~a, expecting ~a"
"your code failed a test: ~a evaluated to ~a, expecting ~a"
(->disp 'expr) (->disp val) (->disp result))))])) (->disp 'expr) (->disp val) (->disp result))))]))
(provide !all-covered) (provide !all-covered)

13
collects/handin-server/doc.txt
View File

@ -705,13 +705,14 @@ _utils.ss_
submission byte string. The byte string is opened for reading, with submission byte string. The byte string is opened for reading, with
line-counting enabled. 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 Calls `proc' with an evaluator for the given language, teachpack
paths, and initial definition content as supplied by a port. It paths, and initial definition content as supplied by input-program
also sets the current error-value print handler to print values in a (see `make-evaluator'). It also sets the current error-value print
way suitable for `lang', it initializes `current-run-status' with handler to print values in a way suitable for `lang', it initializes
"executing your code", and it catches all exceptions to re-raise `current-run-status' with "executing your code", and it catches all
them in a form suitable as a submission error. exceptions to re-raise them in a form suitable as a submission
error.
> (call-with-evaluator/submission language teachpack-paths bytes proc) > (call-with-evaluator/submission language teachpack-paths bytes proc)
Like `call-with-evaluator', but the definitions content is supplied Like `call-with-evaluator', but the definitions content is supplied