small refactors

This commit is contained in:
Nico 2021-03-23 15:18:34 +00:00
parent 464eaefb9f
commit 85af1fb4aa
1 changed files with 2 additions and 2 deletions

View File

@ -26,7 +26,7 @@ include debug.fs
\ (this is used to determine if the change flag needs to be set)
\ It begins with the change flag set, to draw the screen the first time.
\ this variable can contain decimal-point amounts of devices. Things that need a non-decimal amount can round it with ftrunc.
create devices 0e f, -1 ,
create devices 0e f, 0e f, -1
\ old devices is the old device count. For convenience.
: old-devices devices float + ;
@ -65,7 +65,7 @@ S" you feel like throwing some stuff into the pool." set-message
\ clear-all clears the change flag on all values.
: clear-all membercost 1 cleared devices 2 cleared message 2 cleared ;
\ the word !0= tests if something is non-zero
: !0= ( n -- flag ) 0= 0= ;
: !0= ( n -- flag ) 0= 0 ;
\ the word f!0= tests if a floating thing is non-zero
: f!0= ( r -- flag ) f0= 0= ;