http.client: make no-proxy? to do less work with no proxies.

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index b7df415195ba10e214b58ba7d4414b2c650d0e51..19ca7c0c9fd9b7b2e127ee14c070daccf83bfc69 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -176,9 +176,9 @@ SYMBOL: redirects
     [ "NO_PROXY" os-env ] unless* ;
 
 : no-proxy? ( request -- ? )
-    url>> host>> "." split
     get-no-proxy-list [
-        "," split [ "." split no-proxy-match? ] with any?
+       [ url>> host>> "." split ] dip "," split
+       [ "." split no-proxy-match? ] with any?
     ] [ drop f ] if* ;
 
 : check-proxy ( request proxy -- request' )