u-less-equal:core_misc — ordinary primitive
FORTH
U<= ( a b -- flag )();p4:"u-less-equal";
U<= ( a b -- flag )(
)
simulate : U<= U> 0= ;