Fixing everything for mandatory stack effects

[factor.git] / extra / numbers-game / numbers-game.factor

diff --git a/extra/numbers-game/numbers-game.factor b/extra/numbers-game/numbers-game.factor
index 9336aa6b5b2eb52ce082c97b58c9f1b3472ac4ed..ccfe958fe017cf2ee824aaedf922d90e38602173 100644 (file)
--- a/extra/numbers-game/numbers-game.factor
+++ b/extra/numbers-game/numbers-game.factor
@@ -3,12 +3,12 @@ IN: numbers-game
 
 : read-number ( -- n ) readln string>number ;
 
-: guess-banner
+: guess-banner ( -- )
     "I'm thinking of a number between 0 and 100." print ;
-: guess-prompt "Enter your guess: " write ;
-: too-high "Too high" print ;
-: too-low "Too low" print ;
-: correct "Correct - you win!" print ;
+: guess-prompt ( -- ) "Enter your guess: " write ;
+: too-high ( -- ) "Too high" print ;
+: too-low ( -- ) "Too low" print ;
+: correct ( -- ) "Correct - you win!" print ;
 
 : inexact-guess ( actual guess -- )
      < [ too-high ] [ too-low ] if ;
@@ -22,6 +22,6 @@ IN: numbers-game
     dup guess-prompt read-number judge-guess
     [ numbers-game-loop ] [ drop ] if ;
 
-: numbers-game number-to-guess numbers-game-loop ;
+: numbers-game ( -- ) number-to-guess numbers-game-loop ;
 
 MAIN: numbers-game