Add dns.util

2008-06-10 12:16:21 -05:00 · 2008-06-10 12:16:21 -05:00 · bdf77814e2
parent 24eedc2e22
commit bdf77814e2
1 changed files with 11 additions and 0 deletions
--- a/extra/dns/util/util.factor
+++ b/extra/dns/util/util.factor
@ -0,0 +1,11 @@
+
+USING: kernel macros fry ;
+
+IN: dns.util
+
+: tri-chain ( obj p q r -- x y z )
+  >r >r call dup r> call dup r> call ; inline
+
+MACRO: 1if ( test then else -- ) '[ dup @ , , if ] ;
+
+! : 1if ( test then else -- ) >r >r >r dup r> call r> r> if ; inline ;