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

fixed doc location to pre.plt-scheme.org

Browse Source 
svn: r64
This commit is contained in:
Eli Barzilay 2005-06-06 23:23:22 +00:00
parent ad639d3bbe
commit fefd099f63
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/help/private/standard-urls.ss
View File

@ -37,20 +37,17 @@
[make-docs-plt-url (string? . -> . string?)]
[make-docs-html-url (string? . -> . string?)])
(define (base-docs-url)
(if (repos-or-nightly-build?)
"http://pre.plt-scheme.org/docs"
(string-append "http://download.plt-scheme.org/doc/" (version))))
(define (make-docs-plt-url manual-name)
(format "http://download.plt-scheme.org/doc/~a/bundles/~a-doc.plt"
(if (repos-or-nightly-build?)
"pre-release"
(version))
manual-name))
(format "~a/bundles/~a-doc.plt" (base-docs-url) manual-name))
(define (make-docs-html-url manual-name)
(format "http://download.plt-scheme.org/doc/~a/html/~a/index.htm"
(if (repos-or-nightly-build?)
"pre-release"
(version))
manual-name))
(format "~a/html/~a/index.htm" (base-docs-url) manual-name))
(define (prefix-with-server cookie suffix)
(format "http://~a:~a~a" internal-host internal-port suffix))