4 lines
92 B
Forth
4 lines
92 B
Forth
: walk ( a xt -- )
|
|
>r begin ?dup while
|
|
dup cell+ @ r@ execute
|
|
@ repeat r> drop ;
|