From 074d4e9d0aa14324e79211c21d87b9ee95208da9 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 6 Mar 2018 16:02:20 -0800 Subject: [PATCH] minesweeper: fix stack effect in adjacent-flags. --- extra/minesweeper/minesweeper.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/minesweeper/minesweeper.factor b/extra/minesweeper/minesweeper.factor index 960a6baf35..eb96279e4a 100644 --- a/extra/minesweeper/minesweeper.factor +++ b/extra/minesweeper/minesweeper.factor @@ -53,7 +53,7 @@ TUPLE: cell #adjacent mined? state ; : adjacent-mines ( cells row col -- #mines ) [ mined?>> ] count-neighbors ; -: adjacent-flags ( cells row col -- #mines ) +: adjacent-flags ( cells row col -- #flags ) [ state>> +flagged+ = ] count-neighbors ; :: each-cell ( ... cells quot: ( ... row col cell -- ... ) -- ... )