From 5735d37794315dd9f6d2dedfdf6cae3a1dc7181b Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Mon, 8 Apr 2013 11:17:55 -0400
Subject: [PATCH] Use `any/c` for the `ip-address-string?` domain

Previously, it was `string?` which is needlessly
restrictive and caused premature contract failures.

Please merge into 5.3.4
---
 collects/net/private/ip.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/private/ip.rkt b/collects/net/private/ip.rkt
index 7178a28e4f..2aee90a576 100644
--- a/collects/net/private/ip.rkt
+++ b/collects/net/private/ip.rkt
@@ -16,7 +16,7 @@
     [ip-address? (-> any/c boolean?)]
 
     ;; check if a given string is a valid representation of an IP address
-    [ip-address-string? (-> string? boolean?)]
+    [ip-address-string? (-> any/c boolean?)]
 
     ;; construct an IP address from various inputs
     [make-ip-address