Add dns.util
parent
24eedc2e22
commit
bdf77814e2
extra/dns/util
|
@ -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 ;
|
Loading…
Reference in New Issue