--- sml/trunk/src/smlnj-lib/INet/sock-util.sml 1999/09/03 00:21:52 409 +++ sml/trunk/src/smlnj-lib/INet/sock-util.sml 2001/10/19 20:19:39 967 @@ -55,6 +55,8 @@ PC.wrap (scanName, ServName), PC.wrap (Int.scan StringCvt.DEC, PortNumber))))) getc strm + val addrFromString = StringCvt.scanString scanAddr + exception BadAddr of string fun resolveAddr {host, port} = let