Avoid unintended pun.

2011-06-23 18:19:21 -04:00 · 2011-06-23 18:19:21 -04:00 · a3c21be7f6
commit a3c21be7f6
parent d0d748c55a
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"))