suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 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))
(list keyword
result
(string->path file)
file
label
title)]
[else (fail)]))
@ -369,7 +369,9 @@
(list-ref v 4) ; title
(if (eq? 'text doc-kind)
(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)
file
(build-path doc file))))