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

use a different internal url

Browse Source 
svn: r3157
This commit is contained in:
Eli Barzilay 2006-05-31 19:44:21 +00:00
parent 9ee8f07902
commit 601381bd8e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/help/private/internal-hp.ss
View File

@ -17,14 +17,14 @@
;; when cross-manual references are implemented as relative ;; when cross-manual references are implemented as relative
;; URLs.) ;; URLs.)
(define internal-host "helpdesk.plt-scheme.org") (define internal-host "helpdesk-internal.localhost")
(define internal-port 8000) (define internal-port 8000)
(define (generate-hosts prefix dirs) (define (generate-hosts prefix dirs)
(let loop ([dirs dirs][n 0]) (let loop ([dirs dirs][n 0])
(if (null? dirs) (if (null? dirs)
null null
(cons (format "~a~a.helpdesk.plt-scheme.org" prefix n) (cons (format "~a~a.~a" prefix n internal-host)
(loop (cdr dirs) (add1 n)))))) (loop (cdr dirs) (add1 n))))))
(define collects-dirs (define collects-dirs