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

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

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