On Sun, Jul 17, 2016 at 11:44:06AM -0500, Segher Boessenkool wrote:
On Sun, Jul 17, 2016 at 11:20:15AM -0500, Segher Boessenkool wrote:
+: >r state @ if ['] >r , exit then r> swap prstack-push >r ; immediate +: r> state @ if ['] r> , exit then r> prstack-pop swap >r ; immediate +: r@ state @ if ['] r@ , exit then r> prstack-pop dup prstack-push swap >r ; immediate
Btw, why do you need those r> ... smth ... >r gymnastics?
Hrm, okay, coffee helps thinking... Could use some documenting ;-)
Segher