steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add dns.util

db4
Eduardo Cavazos 2008-06-10 12:16:21 -05:00
parent 24eedc2e22
commit bdf77814e2
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/dns/util/util.factor Normal file
View File

@ -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 ;