1 // logic.asm: WORD p_0less, '0<',fasm
8 Data stack: ( v -- 0/-1 )
11 "0<" is a function word that replaces a value with -1 if the value is
12 less than 0, and 0 otherwise.
15 .Definition concept for 0<
17 ( v -- 0/1 ) : 0= 0 SWAP < ;
21 See also <<p_swap,SWAP>> and <<p_lessthan,<>>.