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

svn: r9448

original commit: 931d93ba2fbe45bf5c91fe8dd90983e2ea2322bb
This commit is contained in:
Matthew Flatt 2008-04-24 02:37:47 +00:00
parent e523655315
commit 8e0be36cc7

View File

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