From cdc321cd93477ccc924dbcf7e20ed0800ce5c5a5 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Thu, 12 Jan 2017 15:33:08 +0300
Subject: [PATCH] charts.lines: avoid calling like when not necessary

---
 lines/lines.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lines/lines.factor b/lines/lines.factor
index b06c648914..7f896648bf 100644
--- 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 ;