Updating code to use CONSTANT:

[factor.git] / extra / jamshred / game / game.factor

diff --git a/extra/jamshred/game/game.factor b/extra/jamshred/game/game.factor
index 9cb5bc7c3aab29866a841242c9f4e7502306ada9..14bf18a9c1644085f46b93e6a7234873255b6448 100644 (file)
--- a/extra/jamshred/game/game.factor
+++ b/extra/jamshred/game/game.factor
@@ -29,7 +29,7 @@ TUPLE: jamshred sounds tunnel players running quit ;
 : mouse-moved ( x-radians y-radians jamshred -- )
     jamshred-player -rot turn-player ;
 
-: units-per-full-roll ( -- n ) 50 ;
+CONSTANT: units-per-full-roll 50
 
 : jamshred-roll ( jamshred n -- )
     [ jamshred-player ] dip 2 pi * * units-per-full-roll / roll-player ;