basic do.. loop

Open rafalsk opened this issue 8 years ago • 1 comments

why isn't it supported?

Jul 15 '17 12:07 rafalsk

do...loop implementation. tnx for https://github.com/ruv

: do postpone begin postpone 2>r ; immediate 
: loop postpone 2r> postpone 1+ postpone 2dup postpone = postpone until postpone 2drop ; immediate
: unloop postpone rdrop postpone rdrop ; immediate
: i postpone r@ ; immediate
: j postpone 2r> postpone i postpone rot postpone rot postpone 2>r ; immediate

Mar 05 '25 07:03 awarm