Using "same?" in more places.

[factor.git] / unmaintained / dns / server / server.factor

diff --git a/unmaintained/dns/server/server.factor b/unmaintained/dns/server/server.factor
index 66acb6f4b87d2f916dd26030673ef3bcbc2b873a..53d118608c95133ce8f55e7fe5f7d1fa70f99c6e 100644 (file)
--- a/unmaintained/dns/server/server.factor
+++ b/unmaintained/dns/server/server.factor
@@ -18,7 +18,7 @@ SYMBOL: records-var
 : {name-type-class} ( obj -- array )
   [ [ name>> >lower ] [ type>> ] [ class>> ] tri ] output>array ; 
 
-: rr=query? ( obj obj -- ? ) [ {name-type-class} ] bi@ = ;
+: rr=query? ( obj obj -- ? ) [ {name-type-class} ] same? ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!