11 lines
249 B
Factor
11 lines
249 B
Factor
|
|
||
|
|
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 ;
|