suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust for new link attribute, fix error message

Browse Source 
svn: r17030
This commit is contained in:
Eli Barzilay 2009-11-24 08:25:42 +00:00
parent e9019eb6d9
commit 9cd997af37
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribblings/main/private/make-search.ss
View File

@ -111,7 +111,7 @@
[e (make-link-element "indexlink" e tag)] [e (make-link-element "indexlink" e tag)]
[e (send renderer render-content e sec ri)]) [e (send renderer render-content e sec ri)])
(match e ; should always render to a single `a' (match e ; should always render to a single `a'
[`((a ([href ,href] [class "indexlink"]) . ,body)) [`((a ([href ,href] [class "indexlink"] [pltdoc ,_]) . ,body))
(cond [(and (part-index-desc? desc) (cond [(and (part-index-desc? desc)
(regexp-match #rx"(?:^|/)([^/]+)/index\\.html$" href)) (regexp-match #rx"(?:^|/)([^/]+)/index\\.html$" href))
=> (lambda (man) (hash-set! manual-refs (cadr man) idx))]) => (lambda (man) (hash-set! manual-refs (cadr man) idx))])
@ -121,10 +121,11 @@
(if (regexp-match? #rx"^Provided from: " label) (if (regexp-match? #rx"^Provided from: " label)
body body
;; if this happens, this code should be updated ;; if this happens, this code should be updated
(error "internal error: unexpected tooltip"))] (error 'make-script
"internal error: unexpected tooltip"))]
[else body])]) [else body])])
(values (compact-url href) (compact-body body)))] (values (compact-url href) (compact-body body)))]
[else (error "unexpected value rendered: ~e" e)]))) [else (error 'make-script "unexpected value rendered: ~e" e)])))
(define (lib->name lib) (define (lib->name lib)
(quote-string (let loop ([lib lib]) (quote-string (let loop ([lib lib])
(match lib (match lib