suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 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"
"colldocs.ss"
"server.ss"
(lib "list.ss")
(lib "util.ss" "help" "servlets" "private"))
"path.ss"
(lib "list.ss"))
(provide do-search
doc-collections-changed)
@ -335,7 +335,7 @@
(if (eq? 'text doc-kind)
(apply build-path doc)
(let ([file (list-ref v 2)])
(if (hd-servlet? file)
(if (servlet-path? file)
file
(build-path doc file))))
(list-ref v 3) ; label
@ -368,7 +368,7 @@
"" name
(list-ref desc 2)
(let ([filename (list-ref desc 0)])
(if (hd-servlet? filename)
(if (servlet-path? filename)
filename
(combine-path/url-path doc filename)))
(list-ref desc 1)