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

* catch configuration error in extra-utils

Browse Source 
* clarified !test macro

svn: r2866
This commit is contained in:
Eli Barzilay 2006-05-05 20:08:25 +00:00
parent 87e66f8af8
commit 74307c1aef
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -930,7 +930,8 @@ value from the submission code.
non-#f value in the submission context, throwing an error non-#f value in the submission context, throwing an error
otherwise. The second form compares the result of evaluation, otherwise. The second form compares the result of evaluation,
requiring it to be equal to `result' (optionally specifying an requiring it to be equal to `result' (optionally specifying an
equality procedure). equality procedure). Note that the `result' and `equal?' forms are
*not* evaluated in the submission context.
> (!all-covered) > (!all-covered)
When coverage information is enabled (see `:coverage?' above), this When coverage information is enabled (see `:coverage?' above), this

5
collects/handin-server/extra-utils.ss
View File

@ -29,8 +29,9 @@
(error (apply format fmt args))) (error (apply format fmt args)))
(define fields (define fields
(map car (get-preference 'extra-fields (lambda () #f) #f (map car (or (get-preference 'extra-fields (lambda () #f) #f
(build-path server-dir "config.ss")))) (build-path server-dir "config.ss"))
(error* "bad configuration file: missing extra-fields entry"))))
(provide submission-dir) (provide submission-dir)
(define submission-dir-re (define submission-dir-re