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

Scribble support for redirecting external links and re-rooting corss-reference paths

Browse Source 
svn: r9448

original commit: 931d93ba2fbe45bf5c91fe8dd90983e2ea2322bb
This commit is contained in:
Matthew Flatt 2008-04-24 02:37:47 +00:00
parent e523655315
commit 8e0be36cc7
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/net/url-unit.ss
View File

@ -72,7 +72,7 @@
[sa string-append]) [sa string-append])
(when (and (equal? scheme "file") (when (and (equal? scheme "file")
(not (url-path-absolute? url))) (not (url-path-absolute? url)))
(raise-mismatch-error "url->string" (raise-mismatch-error 'url->string
"cannot convert relative file URL to a string: " "cannot convert relative file URL to a string: "
url)) url))
(sa (if scheme (sa scheme ":") "") (sa (if scheme (sa scheme ":") "")