On Sun, Apr 17, 2016 at 08:36:28PM -0500, Segher Boessenkool wrote:
hex 20 cells CREATE stash VARIABLE #stash #stash off : stash-push stash #stash cells + ! 1 stash +! ; : stash-pop -1 stash +! stash #stash cells + @ ; : >r state @ IF postpone >r EXIT THEN stash-push ; : r> state @ IF postpone r> EXIT THEN stash-pop ; : r@ state @ IF postpone r@ EXIT THEN stash-pop dup stash-push ;
With IMMEDIATE after these last three words, of course. Bah.
Segher