From d0b2adf4d8540776da68978ff1aadad780d5cf37 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 18 Oct 2006 23:59:37 +0000 Subject: [PATCH] improved error message svn: r4630 original commit: 4cb6ebbf59d31c15ac921c43f4f6bbe6d5b6ef24 --- 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 index cdb78587..8ca3bd51 100644 --- 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)])