small refactors
This commit is contained in:
parent
464eaefb9f
commit
85af1fb4aa
4
main.fs
4
main.fs
|
@ -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= ;
|
||||
|
||||
|
|
Reference in New Issue