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

fixed bug just introduced when adding planet docs ...

Browse Source 
svn: r3319
This commit is contained in:
Robby Findler 2006-06-10 21:42:02 +00:00
parent 9f1e080b35
commit 8e65220f3b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/help/private/gui.ss
View File

@ -117,11 +117,6 @@
url]
;; one of the "collects" hosts:
[(and (equal? internal-port (url-port url))
(is-internal-host? (url-host url)))
url]
;; one of the "doc" hosts:
[(and (equal? internal-port (url-port url))
(ormap (lambda (host)
(equal? host (url-host url)))
@ -165,6 +160,11 @@
url))
;; Not a manual? Shouldn't happen.
url))]
;; one of the other internal hosts
[(and (equal? internal-port (url-port url))
(is-internal-host? (url-host url)))
url]
;; send the url off to another browser
[(or (and (string? (url-scheme url))