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

fix sub argument to send-main-page

Browse Source 
svn: r10108
This commit is contained in:
Eli Barzilay 2008-06-03 16:05:03 +00:00
parent 3f17e8df5e
commit a50e7011ea
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))])