dns: use <OS

2018-08-04 10:01:34 -04:00 · 2018-08-04 10:01:34 -04:00 · d40d360616
parent e6715f41a5
commit d40d360616
1 changed files with 7 additions and 4 deletions
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@ -408,10 +408,13 @@ M: TXT rdata>byte-array

 HOOK: initial-dns-servers os ( -- sequence )

-{
-    { [ os windows? ] [ "dns.windows" ] }
-    { [ os unix? ] [ "dns.unix" ] }
-} cond require
+<WINDOWS
+    USE: dns.windows
+WINDOWS>
+
+<UNIX
+    USE: dns.unix
+UNIX>

 : with-dns-servers ( servers quot -- )
    [ dns-servers ] dip with-variable ; inline