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

[factor.git] / extra / picomath / picomath.factor

diff --git a/extra/picomath/picomath.factor b/extra/picomath/picomath.factor
index 51e8433c14f9026fbc010a1229292b2d9b741e68..217679ec01e7f44b4f7508f1575d68ea874c0f10 100644 (file)
--- a/extra/picomath/picomath.factor
+++ b/extra/picomath/picomath.factor
@@ -368,7 +368,7 @@ DEFER: gamma
     x 0 <= [ "Invalid input" throw ] when
     x 12 < [ x gamma abs log ] [
         1.0 x x * / :> z
-        7 c nth 7 iota reverse [ [ z * ] [ c nth ] bi* + ] each x / :> series
+        7 c nth 7 <iota> reverse [ [ z * ] [ c nth ] bi* + ] each x / :> series
         x 0.5 - x log * x - halfLogTwoPi + series +
     ] if ;
 
@@ -411,7 +411,7 @@ CONSTANT: Q {
     0.0 :> num!
     1.0 :> den!
     y 1 - :> z!
-    8 iota [
+    8 <iota> [
         [ P nth num + z * num! ]
         [ Q nth den z * + den! ] bi
     ] each