tools.test: Make the flag public. Finish porting tester changes to fuzzer.

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

diff --git a/unmaintained/dns/server/server.factor b/unmaintained/dns/server/server.factor
index 66acb6f4b87d2f916dd26030673ef3bcbc2b873a..072e6a97089448429dd221ebe522c11a13c2ea12 100644 (file)
--- a/unmaintained/dns/server/server.factor
+++ b/unmaintained/dns/server/server.factor
@@ -1,6 +1,6 @@
 
 USING: kernel combinators sequences sets math threads namespaces continuations
-       debugger io io.sockets unicode.case accessors destructors
+       debugger io io.sockets unicode accessors destructors
        combinators.short-circuit combinators.smart
        fry arrays
        dns dns.util dns.misc ;
@@ -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? ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!