commit d0b2adf4d8540776da68978ff1aadad780d5cf37 parent 81efb615638b74d0eb6bd2fdf13d277511e690fd Author: Robby Findler <robby@racket-lang.org> Date: Wed, 18 Oct 2006 23:59:37 +0000 improved error message svn: r4630 original commit: 4cb6ebbf59d31c15ac921c43f4f6bbe6d5b6ef24 Diffstat:
| M | collects/help/private/search.ss | | | 14 | +++++++------- |
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/collects/help/private/search.ss b/collects/help/private/search.ss @@ -210,14 +210,14 @@ (lambda (x) (k null))]) (read p)))] - [key (let loop ([entry entry]) + [key (let loop ([l-entry entry]) (cond - [(symbol? entry) entry] - [(pair? entry) (if (and (eq? (car entry) 'quote) - (pair? (cdr entry))) - (loop (cadr entry)) - (loop (car entry)))] - [else (error "bad entry")]))] + [(symbol? 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)]))] [content (if (symbol? entry) (with-handlers ([exn:fail:read? (lambda (x) #f)]) (let ([s (read p)])