use regexp

svn: r4930
2006-11-23 04:34:12 +00:00 · 2006-11-23 04:34:12 +00:00 · c6a0983954
commit c6a0983954
parent 2a4c258bef
1 changed files with 1 additions and 1 deletions
--- a/collects/net/dns-unit.ss
+++ b/collects/net/dns-unit.ss
@ -336,7 +336,7 @@
 	       (let ([l (read-line)])
 		 (or (and (string? l)
 			  (let ([m (regexp-match
-				    (format "nameserver[ ~a]+([0-9]+[.][0-9]+[.][0-9]+[.][0-9]+)" #\tab)
+				    #rx"nameserver[ \t]+([0-9]+[.][0-9]+[.][0-9]+[.][0-9]+)"
 				    l)])
 			    (and m (cadr m))))
 		     (and (not (eof-object? l))