Avoid unintended pun.

original commit: a3c21be7f6f1c83eba998d8ecad32d45c2889ef7
2011-06-23 18:19:21 -04:00 · 2011-06-23 18:19:21 -04:00 · 7775f475ee
commit 7775f475ee
parent 69d0cb447a
1 changed files with 1 additions and 1 deletions
--- a/collects/net/url-unit.rkt
+++ b/collects/net/url-unit.rkt
@ -87,7 +87,7 @@
    (cond [(not scheme) 80]
          [(string=? scheme "http") 80]
          [(string=? scheme "https") 443]
-          [else (url-error "Scheme ~a not supported" (url-scheme url))])))
+          [else (url-error "URL scheme ~s not supported" scheme)])))

 (define current-connect-scheme (make-parameter "http"))