From bdf77814e263285f586bb14eaacba731ba042892 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 10 Jun 2008 12:16:21 -0500
Subject: [PATCH] Add dns.util

---
 extra/dns/util/util.factor | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 extra/dns/util/util.factor

diff --git a/extra/dns/util/util.factor b/extra/dns/util/util.factor
new file mode 100644
index 0000000000..bee1cc111e
--- /dev/null
+++ 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 ;
\ No newline at end of file