core/basis/extra: use new math.ranges syntax.

[factor.git] / extra / pong / pong.factor

diff --git a/extra/pong/pong.factor b/extra/pong/pong.factor
index ad59df960082d64f48b903cdd8cd81080376a476..1e8c7c990fe8bdc546a81ec1f36383f21c67a193 100644 (file)
--- a/extra/pong/pong.factor
+++ b/extra/pong/pong.factor
@@ -95,13 +95,13 @@ M:: pong-gadget draw-gadget* ( PONG -- )
 
     ! ball on the left
     X BALL-SIZE + COMPUTER - dup 0 < [
-        >integer -10 max 0 [a,b] random
+        >integer -10 max 0 [a..b] random
         GADGET swap move-computer-by
     ] [ drop ] if
 
     ! ball on the right
     X COMPUTER - dup 0 > [
-        >integer 10 min [0,b] random
+        >integer 10 min [0..b] random
         GADGET swap move-computer-by
     ] [ drop ] if ;