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

typos

Browse Source 
original commit: ce487b4ccc1258112310df6c2a456df5537b06a3
This commit is contained in:
Paul Steckler 2002-07-23 15:34:36 +00:00
parent 3530b2101e
commit 30568ed2a2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,8 +3,8 @@
"docpos.ss" "docpos.ss"
"colldocs.ss" "colldocs.ss"
"server.ss" "server.ss"
(lib "list.ss") "path.ss"
(lib "util.ss" "help" "servlets" "private")) (lib "list.ss"))
(provide do-search (provide do-search
doc-collections-changed) doc-collections-changed)
@ -335,7 +335,7 @@
(if (eq? 'text doc-kind) (if (eq? 'text doc-kind)
(apply build-path doc) (apply build-path doc)
(let ([file (list-ref v 2)]) (let ([file (list-ref v 2)])
(if (hd-servlet? file) (if (servlet-path? file)
file file
(build-path doc file)))) (build-path doc file))))
(list-ref v 3) ; label (list-ref v 3) ; label
@ -368,7 +368,7 @@
"" name "" name
(list-ref desc 2) (list-ref desc 2)
(let ([filename (list-ref desc 0)]) (let ([filename (list-ref desc 0)])
(if (hd-servlet? filename) (if (servlet-path? filename)
filename filename
(combine-path/url-path doc filename))) (combine-path/url-path doc filename)))
(list-ref desc 1) (list-ref desc 1)