zero-less:core — ordinary primitive
FORTH
0< ( val -- cond )();p4:"zero-less";
0< ( val -- cond )(
)
return a flag that is true if val is lower than zero
simulate: : 0< 0 < ;