jamshred.player: use COLOR: constant.

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

diff --git a/extra/jamshred/player/player.factor b/extra/jamshred/player/player.factor
index 53f37806951820d818bdbb17e8689747dbe11db8..8601cb231f81c100cfbd595df7ba23f71c0844cd 100644 (file)
--- a/extra/jamshred/player/player.factor
+++ b/extra/jamshred/player/player.factor
@@ -137,4 +137,4 @@ CONSTANT: max-speed 30.0
     [ update-time ] [ distance-to-move ] [ (move-player) 2drop ] tri ;
 
 : update-player ( player -- )
-    [ move-player ] [ nearest-segment>> "white" named-color swap color<< ] bi ;
+    [ move-player ] [ nearest-segment>> COLOR: white swap color<< ] bi ;