From c178b046fd520196e6012b3d33c8ed35d93d241b Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Mon, 11 Jan 2021 21:43:31 -0800 Subject: [PATCH] Renamed things with do loop. Note, do loop isn't right for negative loops. --- ueforth/common/boot.fs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs index 60ee983..df76766 100644 --- a/ueforth/common/boot.fs +++ b/ueforth/common/boot.fs @@ -90,15 +90,15 @@ ( Counted Loops ) : for postpone >r postpone begin ; immediate : next postpone donext , ; immediate -: dostart ( n n -- .. ) swap r> -rot >r >r >r ; -: docheck ( n -- f .. ) r> r> rot + dup r@ < -rot >r >r ; -: do postpone dostart here 0 ; immediate -: ?do postpone dostart 0 aliteral postpone ahead here swap ; immediate +: (do) ( n n -- .. ) swap r> -rot >r >r >r ; +: (+loop) ( n -- f .. ) r> r> rot + dup r@ < -rot >r >r ; +: do postpone (do) here 0 ; immediate +: ?do postpone (do) 0 aliteral postpone ahead here swap ; immediate : i postpone r@ ; immediate : j rp@ 3 cells - @ ; : unloop postpone rdrop postpone rdrop ; immediate : +loop dup if postpone then else drop then - postpone docheck postpone 0= postpone until + postpone (+loop) postpone 0= postpone until postpone unloop ; immediate : loop 1 aliteral postpone +loop ; immediate