extra: a few more math.ranges syntax.

diff --git a/extra/images/tga/tga.factor b/extra/images/tga/tga.factor
index ce595415220e36e0f677bca2c4947a42a89e4768..1cbf8441d41d7bb590d244cf7446b8c0c71db479 100644 (file)
--- a/extra/images/tga/tga.factor
+++ b/extra/images/tga/tga.factor
@@ -96,8 +96,8 @@ ERROR: bad-tga-unsupported ;
 : read-job-time ( -- duration )
     duration new
     2 read le>                                                   >>hour
-    2 read le> dup 59 [0,b] member? [ bad-tga-timestamp ] unless >>minute
-    2 read le> dup 59 [0,b] member? [ bad-tga-timestamp ] unless >>second ; inline
+    2 read le> dup 59 [0..b] member? [ bad-tga-timestamp ] unless >>minute
+    2 read le> dup 59 [0..b] member? [ bad-tga-timestamp ] unless >>second ; inline
 
 : read-software-id ( -- string )
     41 read ascii decode [ 0 = ] trim ; inline

diff --git a/extra/project-euler/023/023.factor b/extra/project-euler/023/023.factor
index 1f45c5d88fcb41924042c5357103a15443b22e6f..e001970f71607a7b2428168f1f7144b6cce7fbdb 100644 (file)
--- a/extra/project-euler/023/023.factor
+++ b/extra/project-euler/023/023.factor
@@ -37,10 +37,10 @@ IN: project-euler.023
 <PRIVATE
 
 : source-023 ( -- seq )
-    46 [1,b] 47 20161 2 <range> append ;
+    46 [1..b] 47 20161 2 <range> append ;
 
 : abundants-upto ( n -- seq )
-    [1,b] [ abundant? ] filter ;
+    [1..b] [ abundant? ] filter ;
 
 : possible-sums ( seq -- seq )
     HS{ } clone