d-two-star:double — ordinary primitive
FORTH
D2* ( d1.d1 -- d1.d1' )();p4:"d-two-star";
D2* ( d1.d1 -- d1.d1' )(
)
the double-cell arithmetic shiftleft-by-1 operation ( 2* )
dpANS 8.6.1.1090 - standard forth word