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

examples: avoid generating an empty nested table for empty output

Browse Source 
For something like

 #lang scribble/manual
 @(require scribble/eval)
 @interaction[(define x 2)
              x]

the `interaction` form generated an empty nested table for the zero
results from `define`. When rendering via Latex, that empty table
could create vertical whitespace. Produce zero lines in the enclosing
table, instead.
This commit is contained in:
Matthew Flatt 2016-08-05 09:25:37 -06:00
parent aca15dcc85
commit 5b37a3ac72
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scribble-lib/scribble/eval.rkt
View File

@ -99,13 +99,15 @@
[(eof-object? v) [(eof-object? v)
(let* ([line-accum (add-string string-accum line-accum)] (let* ([line-accum (add-string string-accum line-accum)]
[flow-accum (add-line line-accum flow-accum)]) [flow-accum (add-line line-accum flow-accum)])
(list (if (null? flow-accum)
(list.flow.list null
(if (= 1 (length flow-accum)) (list
(car flow-accum) (list.flow.list
(make-table (if (= 1 (length flow-accum))
#f (car flow-accum)
(map list.flow.list (reverse flow-accum)))))))] (make-table
#f
(map list.flow.list (reverse flow-accum))))))))]
[(equal? #\newline v) [(equal? #\newline v)
(loop #f #f (add-line (add-string string-accum line-accum) (loop #f #f (add-line (add-string string-accum line-accum)
flow-accum))] flow-accum))]