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

search document: rint error without aborting on bad index entry

Browse Source 
Survive a broken link in the index by complaining via `log-error`
and continuing.
This commit is contained in:
Matthew Flatt 2015-02-20 13:34:09 -07:00
parent a5d506a3a4
commit 52ca80a7ab
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-index/scribblings/main/private/make-search.rkt
View File

@ -112,7 +112,7 @@
(string-append* `("[" ,@(add-between body ",") "]")))))))
(define manual-refs (make-hash))
(define idx -1)
(define l
(define l-all
(for/list ([i (if as-empty?
null
(get-index-entries sec ri))]
@ -155,7 +155,9 @@
"internal error: unexpected tooltip"))]
[else body])])
(values (compact-url href) (compact-body body)))]
[else (error 'make-script "unexpected value rendered: ~e" e)])))
[else
(log-error "search script: unrecognized index-entry shape: ~e" e)
(values #f #f)])))
(define (lib->name lib)
(quote-string (let loop ([lib lib])
(match lib
@ -168,9 +170,11 @@
(string-append* `("[" ,@(add-between libs ",") "]")))]
[(module-path-index-desc? desc) "\"module\""]
[else "false"]))
(string-append "[" (quote-string text) ","
(quote-string href) ","
html "," from-libs "]")))
(and href
(string-append "[" (quote-string text) ","
(quote-string href) ","
html "," from-libs "]"))))
(define l (filter values l-all))
(define user (if user-dir? "user_" ""))