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

improved error message, some reformatting

Browse Source 
svn: r12335
This commit is contained in:
Eli Barzilay 2008-11-06 22:05:13 +00:00
parent c4deb8e5e7
commit dba3ba8591
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -321,8 +321,8 @@
(define (add-header-line! line)
(let ([new (list line)] [cur (thread-cell-ref added-lines)])
(if cur
(set-box! cur (append (unbox cur) new))
(thread-cell-set! added-lines (box new)))))
(set-box! cur (append (unbox cur) new))
(thread-cell-set! added-lines (box new)))))
(define ((wrap-evaluator eval) expr)
(define unknown "unknown")
@ -450,11 +450,11 @@
(cond [(list? allowed)
(unless (member users allowed)
(error*
"You are not registered ~a for this submission"
"You are not registered for ~a submission"
(case (length users)
[(1) "for individual submission"]
[(2) "as a pair"]
[else "as a group"])))]
[(1) "individual"]
[(2) "pair"]
[else "group"])))]
[(procedure? allowed) (allowed users)]
[(not allowed) ; default is single-user submission
(unless (= 1 (length users))
@ -479,7 +479,9 @@
(prefix-line (user-substs user student-line)))
(for-each prefix-line/substs extra-lines)
(for-each prefix-line/substs
(unbox (or (thread-cell-ref added-lines) (box '()))))
(cond [(thread-cell-ref added-lines)
=> unbox]
[else '()]))
(display submission-text))))
(define submission-text
(and create-text?