suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

more net docs

Browse Source 
svn: r9279

original commit: 85583d4ebb09657c2f8f050a804b7fa93c210875
This commit is contained in:
Matthew Flatt 2008-04-13 03:07:56 +00:00
parent 3d35ac1e4e
commit 871aeca0a6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/manual.ss
View File

@ -1243,9 +1243,9 @@
;; multiple results ;; multiple results
(if (null? res) (if (null? res)
'nbsp 'nbsp
(let ([w (apply max 0 (map block-width res))]) (let ([w (apply + (map block-width res))])
(if (or (ormap table? res) (if (or (ormap table? res)
(w . > . 30)) (w . > . 40))
(make-table (make-table
#f #f
(map (lambda (fe) (map (lambda (fe)