minesweeper: fix stack effect in adjacent-flags.

diff --git a/extra/minesweeper/minesweeper.factor b/extra/minesweeper/minesweeper.factor
index 960a6baf35e570f5e9ab13389f0bbbfadfcc7a29..eb96279e4acc958fd847b0387ed151f1cb576b64 100644 (file)
--- 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 -- ... ) -- ... )