jamshred: update for iota

diff --git a/extra/jamshred/gl/gl.factor b/extra/jamshred/gl/gl.factor
index 48bf2b693a8c463c74cdc247e5689dc2488fd1b6..9e5d248c989726c93149a44476af3196109ece06 100644 (file)
--- a/extra/jamshred/gl/gl.factor
+++ b/extra/jamshred/gl/gl.factor
@@ -44,7 +44,7 @@ CONSTANT: wall-drawing-offset 0.15
 
 : equally-spaced-radians ( n -- seq )
     #! return a sequence of n numbers between 0 and 2pi
-    dup [ / pi 2 * * ] curry map ;
+    [ iota ] keep [ / pi 2 * * ] curry map ;
 
 : draw-segment-vertex ( segment theta -- )
     over color>> gl-color segment-vertex-and-normal

diff --git a/extra/jamshred/oint/oint.factor b/extra/jamshred/oint/oint.factor
index b1644ef443a5f308963e79c2510070935350d2c2..265a1d6c6ab7ce3f302730838c04d9fb576aaa18 100644 (file)
--- a/extra/jamshred/oint/oint.factor
+++ b/extra/jamshred/oint/oint.factor
@@ -34,7 +34,7 @@ C: <oint> oint
 
 : random-float+- ( n -- m )
     #! find a random float between -n/2 and n/2
-    dup 10000 * >fixnum random 10000 / swap 2 / - ;
+    dup 10000 * >integer iota random 10000 / swap 2 / - ;
 
 : random-turn ( oint theta -- )
     2 / 2dup random-float+- left-pivot random-float+- up-pivot ;