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

deal with :eval? properly

Browse Source 
svn: r1846
This commit is contained in:
Eli Barzilay 2006-01-17 10:40:06 +00:00
parent 7f8bb5c68f
commit b1442e74c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -341,6 +341,7 @@
(when coverage? (coverage-enabled #t)) (when coverage? (coverage-enabled #t))
(current-run-status "checking submission") (current-run-status "checking submission")
(cond (cond
[(not eval?) (let () body ...)]
[language [language
(let ([eval (let ([eval
(with-handlers (with-handlers
@ -373,7 +374,6 @@
body*1 body* (... ...))])]) body*1 body* (... ...))])])
(let () body ...)) (let () body ...))
(when (thread-cell-ref added-lines) (write-text))))] (when (thread-cell-ref added-lines) (write-text))))]
[(not eval?) (let () body ...)]
[else (error* "no language configured for submissions")]) [else (error* "no language configured for submissions")])
output-file) output-file)
;; ======================================== ;; ========================================