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

improved error message

Browse Source 
svn: r4630

original commit: 4cb6ebbf59d31c15ac921c43f4f6bbe6d5b6ef24
This commit is contained in:
Robby Findler 2006-10-18 23:59:37 +00:00
parent 81efb61563
commit d0b2adf4d8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/help/private/search.ss
View File

@ -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)])