puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

docread: duplicate header links

Browse source 
This makes it all a bit clearer, IMO.

Change-Id: I6a6a696484771b2368c37589a4b7ece8101c0b82
This commit is contained in:
puck 2025-07-03 18:57:48 +00:00
parent 6f97bf05d2
commit 7272d1546b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/docread/docread.scm
View file

@ -97,7 +97,7 @@
(let loop ((item table-of-contents)) (let loop ((item table-of-contents))
(cond (cond
((null? item) (error "Unknown TOC root" name)) ((null? item) (error "Unknown TOC root" name))
((equal? name (caar item)) (set-cdr! (car item) (cons (sprintf "** xref:generated:~A[++~A++]\n" path name) (cdar item)))) ((equal? name (caar item)) (set-cdr! (car item) (cons (sprintf "** xref:generated:~A[++~A++]\n*** xref:generated:~A[++~A++]\n" path name path name) (cdar item))))
((is-prefix (caar item) name) (set-cdr! (car item) (cons (sprintf "*** xref:generated:~A[++~A++]\n" path name) (cdar item)))) ((is-prefix (caar item) name) (set-cdr! (car item) (cons (sprintf "*** xref:generated:~A[++~A++]\n" path name) (cdar item))))
(else (loop (cdr item)))))) (else (loop (cdr item))))))