immediate

 set immediate flag

Stackeffects

( -- )
R( -- )

Definition

: immediate
   get-current    e@    dup    i@ (literal) $7fff   and    swap    i!
;

Used by