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