collapseos/blk/378

: BLK! ( -- )
    BLK> @ BLK!* @ EXECUTE
    0 BLKDTY !
;
: FLUSH BLKDTY @ IF BLK! THEN ;
: BLK@ ( n -- )
    DUP BLK> @ = IF DROP EXIT THEN
    FLUSH DUP BLK> ! BLK@* @ EXECUTE ;

: BLK!! 1 BLKDTY ! ;
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-02 21:47:32 -04:00			`: BLK! ( -- )`
			`BLK> @ BLK!* @ EXECUTE`
			`0 BLKDTY !`
			`;`
			`: FLUSH BLKDTY @ IF BLK! THEN ;`
			`: BLK@ ( n -- )`
			`DUP BLK> @ = IF DROP EXIT THEN`
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. 2020-06-11 21:42:52 -04:00			`FLUSH DUP BLK> ! BLK@* @ EXECUTE ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-02 21:47:32 -04:00
			`: BLK!! 1 BLKDTY ! ;`