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

fix sub argument to send-main-page

Browse Source 
svn: r10108

original commit: a50e7011ea76e415855a7d69846810b475226a3b
This commit is contained in:
Eli Barzilay 2008-06-03 16:05:03 +00:00
parent 320b104514
commit 8356a7f61f
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

@ -8,7 +8,7 @@
;; Almost nothing to do here -- the real work is done in the browser,
;; using javascript.
(define (send-main-page #:sub [sub #f]
(define (send-main-page #:sub [sub "index.html"]
#:fragment [fragment #f] #:query [query #f])
(let* ([path (build-path (find-user-doc-dir) sub)]
[path (if (file-exists? path) path (build-path (find-doc-dir) sub))])