nihilazo
/
javapool
Archived
2
2
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix payment bug

This commit is contained in:
Nico 2021-03-30 13:59:35 +01:00
parent bf3ee866c9
commit 3e46ceca92
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
main.fs
View File

@ -127,7 +127,7 @@ S" you feel like throwing some stuff into the pool." set-message
: can-afford? ( n currency -- flag ) f@ s>f f>= ;
\ the word pay pays an amount of a currency.
: pay ( n currency -- ) dup f@ swap s>f fswap f- f! ;
: pay ( n currency -- ) dup f@ swap s>f ( fswap ) f- f! ;
\ the word clear-message clears the onscreen message
: clear-message S" " set-message ;