Make BLK@ FLUSH only if loading a different block

Otherwise, when editing a file with VE, we would constantly write
to disk, which is a bit inefficient.

blk/127

@@ -14,4 +14,3 @@
 
 
 
-

blk/157

@@ -1,7 +1,7 @@
 : WIPE BLK( 1024 0 FILL BLK!! ;
 
 ( src dst -- )
-: COPY SWAP BLK@ BLK> ! BLK! ;
+: COPY FLUSH SWAP BLK@ BLK> ! BLK! ;
 
 
 

blk/378

@@ -4,10 +4,8 @@
 ;
 : FLUSH BLKDTY @ IF BLK! THEN ;
 : BLK@ ( n -- )
-    FLUSH
     DUP BLK> @ = IF DROP EXIT THEN
-    DUP BLK> ! BLK@* @ EXECUTE
-;
+    FLUSH DUP BLK> ! BLK@* @ EXECUTE ;
 
 : BLK!! 1 BLKDTY ! ;