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

fix to PR 8872

Browse Source 
svn: r7101

original commit: 12a487020b7223c9e557c4d8549d0853e59a3d43
This commit is contained in:
Robby Findler 2007-08-14 23:53:03 +00:00
parent afe6ea745a
commit cc4e99778e
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/help/private/search.ss
View File

@ -221,11 +221,13 @@
[key (let loop ([l-entry entry])
(cond
[(symbol? l-entry) l-entry]
[(keyword? l-entry) l-entry]
[(pair? l-entry) (if (and (eq? (car l-entry) 'quote)
(pair? (cdr l-entry)))
(loop (cadr l-entry))
(loop (car l-entry)))]
[else (error 'load-txt-keyworsd "bad entry in ~s: ~s" doc entry)]))]
[else (fprintf (current-error-port) "load-txt-keyword: bad entry in ~s: ~s\n" doc entry)
#f]))]
[content (if (symbol? entry)
(with-handlers ([exn:fail:read? (lambda (x) #f)])
(let ([s (read peek-port)])
@ -244,14 +246,17 @@
(display entry p)))
(get-output-string p))]
[kwd-entry
; Make the keyword entry:
(list (symbol->string key) ; the keyword name
txt-to-display ; the text to display
(cadr doc) ; file
(let-values ([(line col pos) (port-next-location p)])
(- pos 2)) ; label (a position in this case)
"doc.txt")])
(cons kwd-entry (loop))))] ; title
(and key
; Make the keyword entry:
(list (format "~s" key) ; the keyword name
txt-to-display ; the text to display
(cadr doc) ; file
(let-values ([(line col pos) (port-next-location p)])
(- pos 2)) ; label (a position in this case)
"doc.txt"))])
(if kwd-entry
(cons kwd-entry (loop))
(loop))))] ; title
[else null]))))))
(define re:index-line (regexp "_([^_]*)_(.*)"))