\ ==============================================================================
\ 
\ 	RubyFORTH -- Copyright (C) 2007-8, Marc Simpson (GPL). 
\ 
\       Implement LaForth style conditionals.
\ 
\ ==============================================================================

compiler
: ?[ [compile] if ;
: ][ [compile] else ;
: ]? [compile] then ;

forth
: .bool ( f -- ) ?[ ." True" ][ ." False" ]? ;

( Test with ==> -1 .bool )