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