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

more i/o reference work

Browse Source 
svn: r6807

original commit: 4bf593ddc4bf3a96f3b4d1123838e66b6da5fbb0
This commit is contained in:
Matthew Flatt 2007-07-03 08:07:56 +00:00
parent ca77096693
commit 10218709c7
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scribble/base-render.ss
View File

@ -285,9 +285,13 @@
(define/private (render-toc part base-len skip?) (define/private (render-toc part base-len skip?)
(let ([number (collected-info-number (part-collected-info part))]) (let ([number (collected-info-number (part-collected-info part))])
(let ([subs (let ([subs
(apply (if (not (and (styled-part? part)
append (eq? 'quiet (styled-part-style part))
(map (lambda (p) (render-toc p base-len #f)) (part-parts part)))]) (not (= base-len (sub1 (length number))))))
(apply
append
(map (lambda (p) (render-toc p base-len #f)) (part-parts part)))
null)])
(if skip? (if skip?
subs subs
(let ([l (cons (let ([l (cons