Rename and add sorting words

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

diff --git a/extra/snake-game/game/game.factor b/extra/snake-game/game/game.factor
index 1ce9c04b40f38b31b2fc219b5825600ac74dacb5..9490168140e4ea34fe213be03bbb3c127bb6de13 100644 (file)
--- a/extra/snake-game/game/game.factor
+++ b/extra/snake-game/game/game.factor
@@ -81,7 +81,7 @@ C: <snake-part> snake-part
     [ dir>> move-loc ] accumulate nip ;
 
 : snake-occupied-indices ( snake head-loc -- points )
-    snake-occupied-locs [ game-loc>index ] map natural-sort ;
+    snake-occupied-locs [ game-loc>index ] map sort ;
 
 : snake-unoccupied-indices ( snake head-loc -- points )
     [ all-indices ] 2dip snake-occupied-indices without ;