factor: trim using lists

[factor.git] / extra / math / splines / splines.factor

diff --git a/extra/math/splines/splines.factor b/extra/math/splines/splines.factor
index db8e87ae61c9bb1d64b349942f8f2cc65486461a..9005c2d0c38f598969d540021c29f05617081ce9 100644 (file)
--- a/extra/math/splines/splines.factor
+++ b/extra/math/splines/splines.factor
@@ -1,9 +1,7 @@
 ! Copyright (C) 2010 Erik Charlebois
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors combinators kernel locals math math.combinatorics
-math.polynomials opengl.gl sequences ui.gadgets ui.gadgets.panes
-ui.render arrays grouping math.vectors assocs
-ui.gestures ;
+USING: arrays combinators grouping kernel math
+math.combinatorics math.polynomials math.vectors sequences ;
 IN: math.splines
 
 <PRIVATE
@@ -55,7 +53,7 @@ PRIVATE>
     acc ;
 
 :: <cubic-hermite-curve> ( p0 m0 p1 m1 -- polynomials )
-    p0 length iota [
+    p0 length <iota> [
         {
             [ p0 nth ] [ m0 nth ]
             [ p1 nth ] [ m1 nth ]