Define DO, LOOP and I in user.4th.

anse1 · anse1 · commit 925a3fc87f8a · 2015-02-13T00:00:28.000+01:00
diff --git a/user.4th b/user.4th
@@ -127,3 +127,6 @@ repeat drop ;
 : octal 8 base c! ;
 : binary 2 base c! ;
 
+: do postpone swap postpone 2>r postpone begin postpone 2r@ postpone > postpone while ; immediate
+: loop postpone r> postpone 1+ postpone >r postpone repeat postpone 2r> postpone 2drop ; immediate
+: i postpone r@ ; immediate
