alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Renamed things with do loop.

Browse Source 
Note, do loop isn't right for negative loops.
This commit is contained in:
Brad Nelson
2021-01-11 21:43:31 -08:00
parent 3680bfbad7
commit c178b046fd
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ueforth/common/boot.fs
View File

@ -90,15 +90,15 @@
( Counted Loops ) ( Counted Loops )
: for postpone >r postpone begin ; immediate : for postpone >r postpone begin ; immediate
: next postpone donext , ; immediate : next postpone donext , ; immediate
: dostart ( n n -- .. ) swap r> -rot >r >r >r ; : (do) ( n n -- .. ) swap r> -rot >r >r >r ;
: docheck ( n -- f .. ) r> r> rot + dup r@ < -rot >r >r ; : (+loop) ( n -- f .. ) r> r> rot + dup r@ < -rot >r >r ;
: do postpone dostart here 0 ; immediate : do postpone (do) here 0 ; immediate
: ?do postpone dostart 0 aliteral postpone ahead here swap ; immediate : ?do postpone (do) 0 aliteral postpone ahead here swap ; immediate
: i postpone r@ ; immediate : i postpone r@ ; immediate
: j rp@ 3 cells - @ ; : j rp@ 3 cells - @ ;
: unloop postpone rdrop postpone rdrop ; immediate : unloop postpone rdrop postpone rdrop ; immediate
: +loop dup if postpone then else drop then : +loop dup if postpone then else drop then
postpone docheck postpone 0= postpone until postpone (+loop) postpone 0= postpone until
postpone unloop ; immediate postpone unloop ; immediate
: loop 1 aliteral postpone +loop ; immediate : loop 1 aliteral postpone +loop ; immediate