compile

 copy the next flash cell to HERE

Stackeffects

( -- )
R( -- )

Definition

: compile
   r>    dup    1+    >r    i@    (unnamed)
;

Used by

abort again [char] [",$27,"] : :noname constant create do does> . Edefer else end-code evaluate >mark if interpret is literal loop +loop ?do Rdefer (unnamed) s to until user value variable while