rosetta-code.bitmap-bezier: use zip.

2018-01-19 12:14:17 -08:00 · 2018-01-19 12:14:17 -08:00 · b0b9524fcf
parent c4d139ca9f
commit b0b9524fcf
1 changed files with 1 additions and 1 deletions
--- 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 ;