charts.lines: reduce the amount of data copying in draw-lines

diff --git a/lines/lines.factor b/lines/lines.factor
index 4c8f795eb5be9e122105fe8e8dc86d6fca91159d..6c17c17b5a805159dc5a2efb2bb13de8f99ca4aa 100644 (file)
--- a/lines/lines.factor
+++ b/lines/lines.factor
@@ -172,8 +172,8 @@ ALIAS: y second
 PRIVATE>
 
 : draw-line ( seq -- )
-    dup dup length odd? [ [ 1 head* ] dip ] [ 1 head* ] if
-    1 tail append
+    dup [ 1 head-slice* ] over length odd? [ dip ] [ call ] if
+    1 tail-slice append
     [ (line-vertices) gl-vertex-pointer GL_LINES 0 ] keep
     length glDrawArrays ;