1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 12:18:07 +11:00

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.
This commit is contained in:
link2xt 2020-06-17 02:55:26 +03:00 committed by GitHub
parent f1a225ef3d
commit 6a09910dfc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -2,7 +2,7 @@ CREATE ACC 0 ,
: _LIST ." Block " DUP . NL LIST ; : _LIST ." Block " DUP . NL LIST ;
: _NUM : _NUM
ACC @ SWAP _pdacc ACC @ SWAP _pdacc
IF _LIST 0 THEN 1 = IF _LIST 0 THEN
ACC ! ACC !
; ;
: L BLK> @ _LIST ; : L BLK> @ _LIST ;