Ow! Now we are entering the taboo area of state-smartness… In noForth we have the word FLYER . It handles state-smartness in a uniform way. FLYER uses DIVE and both are implementation dependent FLYER is a NOOP during compile time. This is what FLYER does when STATE=0 :
: ." ( a n -- ) flyer ." ;
: -FLY 2r> r> 2>r >r ; immediate ( r: x y z -- z x y )
8 0 flyer do i . loop -fly
(an)