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

search-context has the proper suffix now

Browse Source 
svn: r10953

original commit: f30efeb8c3f28caf5a7e2b1d44c47dc667bc49de
This commit is contained in:
Eli Barzilay 2008-07-29 04:32:58 +00:00
parent 03ac8b12bd
commit cb550a460a
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

@ -23,7 +23,7 @@
;; search page is refreshed it won't reset the context). ;; search page is refreshed it won't reset the context).
(let* ([label (and (list? context) (= 2 (length context)) (cadr context))] (let* ([label (and (list? context) (= 2 (length context)) (cadr context))]
[context (if (pair? context) (car context) context)] [context (if (pair? context) (car context) context)]
[page (if context "search-context.htm" "index.html")] [page (if context "search-context.html" "index.html")]
[query (format "q=~a" (uri-encode str))] [query (format "q=~a" (uri-encode str))]
[query (if context [query (if context
(format "~a&hq=~a~a" (format "~a&hq=~a~a"