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

fix help start path

Browse Source 
svn: r8302
This commit is contained in:
Matthew Flatt 2008-01-11 20:09:19 +00:00
parent 05434ec54d
commit 4e2951c2bc
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?)]) [send-main-page (-> void?)])
(define (send-main-page) (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))))) (send-url (format "file://~a" (path->string dest-path)))))
;; if there is exactly one exact match for this search key, go directly ;; if there is exactly one exact match for this search key, go directly