charts.lines: avoid calling like when not necessary

2017-01-12 15:33:08 +03:00 · 2017-01-12 15:33:08 +03:00 · cdc321cd93
parent 317fe9e9f4
commit cdc321cd93
1 changed files with 1 additions and 1 deletions
--- a/lines/lines.factor
+++ b/lines/lines.factor
@ -67,7 +67,7 @@ TUPLE: line < gadget color data ;
        adjusted-tail-slice
        [ second ] dip [ search-first? not ] keep
        adjusted-head-slice
-        dup like
+        dup slice? [ dup like ] when
    ] [
        2drop { } clone
    ] if ;