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

.

Browse Source 
original commit: 1187376dc12bfa7e0ad906d54b616a94c1201f83
This commit is contained in:
Robby Findler 2004-09-28 18:07:05 +00:00
parent e0cd7f14f0
commit dc893a1331
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -170,7 +170,7 @@
,(? string? title)) ,(? string? title))
(list keyword (list keyword
result result
(string->path file) file
label label
title)] title)]
[else (fail)])) [else (fail)]))
@ -369,7 +369,9 @@
(list-ref v 4) ; title (list-ref v 4) ; title
(if (eq? 'text doc-kind) (if (eq? 'text doc-kind)
(apply build-path doc) (apply build-path doc)
(let ([file (bytes->path (string->bytes/utf-8 (list-ref v 2)))]) (let ([file (bytes->path
(string->bytes/utf-8
(list-ref v 2)))])
(if (servlet-path? file) (if (servlet-path? file)
file file
(build-path doc file)))) (build-path doc file))))