suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix help start path

Browse Source 
svn: r8302

original commit: 4e2951c2bcccb1961de7c71304033723e77d8743
This commit is contained in:
Matthew Flatt 2008-01-11 20:09:19 +00:00
parent 0732affece
commit e87efe3ce8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/search.ss
View File

@ -18,7 +18,7 @@
[send-main-page (-> void?)])
(define (send-main-page)
(let ([dest-path (build-path (find-doc-dir) "start" "index.html")])
(let ([dest-path (build-path (find-doc-dir) "index.html")])
(send-url (format "file://~a" (path->string dest-path)))))
;; if there is exactly one exact match for this search key, go directly