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 773fe31ea6a1c1ddc53ccf896aea12b1155afe52..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? ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -164,7 +164,7 @@ DEFER: query->rrs
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : is-nx ( message -- message/f )
-  [ message-query name>> records [ name>> = ] with filter empty? ]
+  [ message-query name>> records [ name>> = ] with any? not ]
     [
       NAME-ERROR >>rcode
       dup