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) (define (add-header-line! line)
(let ([new (list line)] [cur (thread-cell-ref added-lines)]) (let ([new (list line)] [cur (thread-cell-ref added-lines)])
(if cur (if cur
(set-box! cur (append (unbox cur) new)) (set-box! cur (append (unbox cur) new))
(thread-cell-set! added-lines (box new))))) (thread-cell-set! added-lines (box new)))))
(define ((wrap-evaluator eval) expr) (define ((wrap-evaluator eval) expr)
(define unknown "unknown") (define unknown "unknown")
@ -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?