From a902428f6266d78bf9aabf68ddecdec20f2b80e5 Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Fri, 26 Apr 2013 20:57:54 +0300
Subject: [PATCH] terminfo: 1 head* is but-last

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

diff --git a/extra/terminfo/terminfo.factor b/extra/terminfo/terminfo.factor
index 3ba32d1f83..d90d07a82e 100644
--- a/extra/terminfo/terminfo.factor
+++ b/extra/terminfo/terminfo.factor
@@ -30,7 +30,7 @@ C: <terminfo-header> terminfo-header
     5 firstn <terminfo-header> ;
 
 : read-names ( header -- names )
-    names-bytes>> read 1 head* "|" split [ >string ] map ;
+    names-bytes>> read but-last "|" split [ >string ] map ;
 
 : read-booleans ( header -- booleans )
     boolean-bytes>> read [ 1 = ] { } map-as ;