From 418b798460cc73afad89355370b741b14864c2a4 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Tue, 10 Jan 2017 23:06:33 +0300
Subject: [PATCH] charts.lines: rename search-index to search-first

---
 lines/lines.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lines/lines.factor b/lines/lines.factor
index 05dbe4e1aa..be6f190127 100644
--- a/lines/lines.factor
+++ b/lines/lines.factor
@@ -15,7 +15,7 @@ TUPLE: line < gadget color data ;
 : (line-vertices) ( seq -- vertices )
     concat [ 0.3 + ] float-array{ } map-as ;
 
-: search-index ( elt seq -- index elt )
+: search-first ( elt seq -- index elt )
     [ first <=> ] with search ;
 
 : finder ( elt seq -- seq quot )
@@ -53,8 +53,8 @@ TUPLE: line < gadget color data ;
 
 : clip-by-first ( min,max pairs -- pairs' )
     2dup first-in-bounds? [
-        [ dup first ] dip [ search-index ] keep adjusted-tail
-        [ second ] dip [ search-index ] keep adjusted-head
+        [ dup first ] dip [ search-first ] keep adjusted-tail
+        [ second ] dip [ search-first ] keep adjusted-head
     ] [
         2drop { } clone
     ] if ;