steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

minesweeper: fix stack effect in adjacent-flags.

windows-high-dpi
John Benediktsson 2018-03-06 16:02:20 -08:00
parent 2dc44cd360
commit 074d4e9d0a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/minesweeper/minesweeper.factor
View File

@ -53,7 +53,7 @@ TUPLE: cell #adjacent mined? state ;
: adjacent-mines ( cells row col -- #mines ) : adjacent-mines ( cells row col -- #mines )
[ mined?>> ] count-neighbors ; [ mined?>> ] count-neighbors ;
: adjacent-flags ( cells row col -- #mines ) : adjacent-flags ( cells row col -- #flags )
[ state>> +flagged+ = ] count-neighbors ; [ state>> +flagged+ = ] count-neighbors ;
:: each-cell ( ... cells quot: ( ... row col cell -- ... ) -- ... ) :: each-cell ( ... cells quot: ( ... row col cell -- ... ) -- ... )