From ca781ea739dd7426d07d283a7331040f37424aa7 Mon Sep 17 00:00:00 2001
From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Sat, 12 Jul 2008 02:48:09 +0200
Subject: [PATCH] Simplify using iteration

---
 extra/ctags/etags/etags.factor | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/extra/ctags/etags/etags.factor b/extra/ctags/etags/etags.factor
index 94928a263e..f2d7d7e174 100644
--- a/extra/ctags/etags/etags.factor
+++ b/extra/ctags/etags/etags.factor
@@ -28,16 +28,8 @@ IN: ctags.etags
 : ctag-hash ( seq -- hash )
   H{ } clone swap [ swap ctag-add ] each ;
 
-: line>bytes ( n seq -- bytes )
-  nth length 1+ ;
-
-: lines>bytes ( n seq -- bytes )
-  over zero? [
-    line>bytes ] [
-    [
-      [ 1- ] dip lines>bytes
-    ] 2keep line>bytes +
-  ] if ;
+: lines>bytes ( seq n -- bytes )
+  head 0 [ length 1+ + ] reduce ;
 
 : file>lines ( resource -- lines )
   ascii file-lines ;
@@ -48,7 +40,7 @@ IN: ctags.etags
     1 HEX: 7f <string> %
     second dup number>string %
     1 CHAR: , <string> %
-    2 - swap lines>bytes number>string %
+    1- lines>bytes number>string %
   ] "" make ;
 
 : etag-entry ( alist -- alist array )