* 2* ( a -- a*2 ) multiplies the value with two - but it does actually use a shift1 to be faster simulate: : 2* 2 * ; ( canonic) : 2* 1 LSHIFT ; ( usual)
2*
( a -- a*2 )
simulate: : 2* 2 * ; ( canonic) : 2* 1 LSHIFT ; ( usual)
FORTH/ANS core (dpANS.6.1.0320) ordinary primitive