wip

blk/420

@@ -1 +1 @@
-1 16 LOADR+ ( xcomp core high )
+1 18 LOADR+ ( xcomp core high )

blk/434

@@ -2,7 +2,3 @@
 ( b1 b2 -- )
 : LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;
 : LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;
-( Now we have "as late as possible" stuff )
-: DO COMPILE 2>R H@ ; IMMEDIATE
-: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
-( LEAVE is implemented in low xcomp )

blk/437

@@ -1,3 +1,7 @@
+( Now we have "as late as possible" stuff )
+: DO COMPILE 2>R H@ ; IMMEDIATE
+: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
+( LEAVE is implemented in low xcomp )
 : LITN 32 , , ( 32 == NUMBER ) ;
 
 ( ';' can't have its name right away because, when created, it
@@ -7,4 +11,3 @@
     ['] EXIT ,
     R> DROP     ( exit : )
 ; IMMEDIATE
-