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