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

Add an error message when the sandbox doesn't capture its output as a string.

Browse Source 
original commit: 43d1c240a171943e214ac43055e6bdbfc5072f70
This commit is contained in:
Eli Barzilay 2011-06-16 07:07:13 -04:00
parent 41b848edda
commit 09eb2cc7b7
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
collects/scribble/eval.rkt
View File

@ -57,27 +57,26 @@
(make-element style (list s)))))
(define (format-output str style)
(if (string=? "" str)
null
(cond
[(not (string? str))
(error 'format-output "missing output, possibly from a sandbox ~a"
"without a `sandbox-output' configured to 'string")]
[(string=? "" str) null]
[else
(list
(list
(list
(make-flow
(list
(let ([s (regexp-split #rx"\n"
(regexp-replace #rx"\n$"
str
""))])
(if (= 1 (length s))
(make-paragraph
(list
(literal-string style (car s))))
(make-table
#f
(map (lambda (s)
(list (make-flow (list (make-paragraph
(list
(literal-string style s)))))))
s))))))))))
(make-flow
(list
(let ([s (regexp-split #rx"\n" (regexp-replace #rx"\n$" str ""))])
(if (= 1 (length s))
(make-paragraph (list (literal-string style (car s))))
(make-table
#f
(map (lambda (s)
(list (make-flow
(list (make-paragraph
(list (literal-string style s)))))))
s))))))))]))
(define (format-output-stream in style)
(define (add-string string-accum line-accum)
@ -257,7 +256,7 @@
(raise-syntax-error 'eval "example result check failed" s))))
r)
(values (list (list (void)) "" "")))))
(define (install ht v v2)
(hash-set! ht v v2)