rosetta-code.bitmap-bezier: use zip.

diff --git a/extra/rosetta-code/bitmap-bezier/bitmap-bezier.factor b/extra/rosetta-code/bitmap-bezier/bitmap-bezier.factor
index a38828114ece4bfe116e301bab9b8a1a0e4d5576..6988405419c6f5315bd5cd8d79048e1d6fc65f83 100644 (file)
--- a/extra/rosetta-code/bitmap-bezier/bitmap-bezier.factor
+++ b/extra/rosetta-code/bitmap-bezier/bitmap-bezier.factor
@@ -24,7 +24,7 @@ IN: rosetta-code.bitmap-bezier
 
 ! turns a list of points into the list of lines between them
 : points-to-lines ( seq -- seq )
-    dup rest [ 2array ] 2map ;
+    dup rest zip ;
 
 : draw-lines ( {R,G,B} points image -- )
     [ [ first2 ] dip draw-line ] curry with each ;