collapseos/blk/106

CREATE ACC 0 ,
: _LIST ." Block " DUP . NL LIST ;
: _NUM
    ACC @ SWAP _pdacc
    1 = IF _LIST 0 THEN
    ACC !
;
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK@ L ;
: N BLK> @ 1+ BLK@ L ;
ed: free some blocks for the docs 2020-06-10 11:48:49 +10:00			`CREATE ACC 0 ,`
			`: _LIST ." Block " DUP . NL LIST ;`
			`: _NUM`
			`ACC @ SWAP _pdacc`
BROWSE: ignore invalid digits (#123) Documentation in block 100 says a number followed by a space or return lists the contents of the block. However, typing any other character does this too, because _pdacc returns -1 in this case. This is annoying because typing "n" instead of "N" immediately after jumping to some block was bringing you to block 0. Now "n" is ignored instead. This commit changes the condition for printing to explicitly check for the value of 1, which means whitespace according to _pdacc documentation in block 355. 2020-06-17 09:55:26 +10:00			`1 = IF _LIST 0 THEN`
ed: free some blocks for the docs 2020-06-10 11:48:49 +10:00			`ACC !`
			`;`
			`: L BLK> @ _LIST ;`
			`: B BLK> @ 1- BLK@ L ;`
			`: N BLK> @ 1+ BLK@ L ;`