commit af279647b2dbcf65d0e624ad66f151b1bf20e891 parent e0dd79a1cda694cfabb8078a7cfed89b1162a21a Author: Robby Findler <robby@racket-lang.org> Date: Wed, 4 Feb 2004 18:00:18 +0000 . original commit: e515cf70d85b98e74c4efa22b9e1547fee5cd05a Diffstat:
| M | collects/help/private/search.ss | | | 54 | +++++++++++++++++++++++++++++++----------------------- |
1 file changed, 31 insertions(+), 23 deletions(-)
diff --git a/collects/help/private/search.ss b/collects/help/private/search.ss @@ -322,19 +322,24 @@ [(text) (load-txt-keywords doc)] [else null])] [add-key-choice (lambda (v) - (found "keyword entries") - (add-choice - (car v) ; key - (cadr v) ; display - (list-ref v 4) ; title - (if (eq? 'text doc-kind) - (apply build-path doc) - (let ([file (list-ref v 2)]) - (if (servlet-path? file) - file - (build-path doc file)))) - (list-ref v 3) ; label - ckey))]) + (when (and (pair? v) + (pair? (cdr v)) + (pair? (cddr v)) + (pair? (cdddr v)) + (pair? (cddddr v))) + (found "keyword entries") + (add-choice + (car v) ; key + (cadr v) ; display + (list-ref v 4) ; title + (if (eq? 'text doc-kind) + (apply build-path doc) + (let ([file (list-ref v 2)]) + (if (servlet-path? file) + file + (build-path doc file)))) + (list-ref v 3) ; label + ckey)))]) (unless regexp? (for-each (lambda (v) @@ -358,16 +363,19 @@ [add-index-choice (lambda (name desc) (case doc-kind [(html) - (found "index entries") - (add-choice - "" name - (list-ref desc 2) - (let ([filename (list-ref desc 0)]) - (if (servlet-path? filename) - filename - (combine-path/url-path doc filename))) - (list-ref desc 1) - ckey)] + (when (and (pair? desc) + (pair? (cdr desc)) + (pair? (cddr desc))) + (found "index entries") + (add-choice + "" name + (list-ref desc 2) + (let ([filename (list-ref desc 0)]) + (if (servlet-path? filename) + filename + (combine-path/url-path doc filename))) + (list-ref desc 1) + ckey))] [(text) (found "index entries") (add-choice