From b17bd4dca043e8d545029796c2813f547edb42ec Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 14 May 2020 08:33:06 -0400
Subject: [PATCH] wip

---
 blk/420          | 2 +-
 blk/434          | 4 ----
 blk/{435 => 437} | 5 ++++-
 blk/{436 => 438} | 0
 4 files changed, 5 insertions(+), 6 deletions(-)
 rename blk/{435 => 437} (59%)
 rename blk/{436 => 438} (100%)

diff --git a/blk/420 b/blk/420
index 53bf09e..5572acc 100644
--- a/blk/420
+++ b/blk/420
@@ -1 +1 @@
-1 16 LOADR+ ( xcomp core high )
+1 18 LOADR+ ( xcomp core high )
diff --git a/blk/434 b/blk/434
index 0819e39..db838a0 100644
--- a/blk/434
+++ b/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 )
diff --git a/blk/435 b/blk/437
similarity index 59%
rename from blk/435
rename to blk/437
index 325af37..65a31d5 100644
--- a/blk/435
+++ b/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
-
diff --git a/blk/436 b/blk/438
similarity index 100%
rename from blk/436
rename to blk/438