core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / extra / cuda / devices / devices.factor

diff --git a/extra/cuda/devices/devices.factor b/extra/cuda/devices/devices.factor
index 079234b2ee26dd858a2f3b16ba66a478c972b09e..dc69946648dc5f9618d5b8d11a4aea88d1c8c3ea 100644 (file)
--- a/extra/cuda/devices/devices.factor
+++ b/extra/cuda/devices/devices.factor
@@ -14,7 +14,7 @@ IN: cuda.devices
     [ { CUdevice } ] dip '[ _ cuDeviceGet cuda-error ] with-out-parameters ;
 
 : enumerate-cuda-devices ( -- devices )
-    #cuda-devices iota [ n>cuda-device ] map ;
+    #cuda-devices <iota> [ n>cuda-device ] map ;
 
 : with-each-cuda-device ( quot -- )
     [ enumerate-cuda-devices ] dip '[ 0 _ with-cuda-context ] each ; inline
@@ -64,7 +64,7 @@ IN: cuda.devices
 : cuda. ( -- )
     init-cuda
     "CUDA Version: " write cuda-version number>string print nl
-    #cuda-devices iota [ nl ] [ cuda-device. ] interleave ;
+    #cuda-devices <iota> [ nl ] [ cuda-device. ] interleave ;
 
 : up/i ( x y -- z )
     [ 1 - + ] keep /i ; inline