From 1778757fa2c4fd9487df77308a2ab103f3150467 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 3 May 2011 20:50:23 -0700
Subject: [PATCH] Update references to "1 tail" to use "rest".

---
 basis/math/polynomials/polynomials.factor | 2 +-
 extra/elf/elf.factor                      | 2 +-
 extra/irc/messages/parser/parser.factor   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/math/polynomials/polynomials.factor b/basis/math/polynomials/polynomials.factor
index 7e43ec94ba..966adb3db4 100644
--- a/basis/math/polynomials/polynomials.factor
+++ b/basis/math/polynomials/polynomials.factor
@@ -98,7 +98,7 @@ PRIVATE>
 
 MACRO: polyval* ( p -- )
     reverse
-    [ 1 tail [ \ * swap \ + [ ] 3sequence ] map ]
+    [ rest [ \ * swap \ + [ ] 3sequence ] map ]
     [ first \ drop swap [ ] 2sequence ] bi
     prefix \ cleave [ ] 2sequence ;
 
diff --git a/extra/elf/elf.factor b/extra/elf/elf.factor
index d2437d9a9b..b1cbb17289 100644
--- a/extra/elf/elf.factor
+++ b/extra/elf/elf.factor
@@ -536,7 +536,7 @@ TYPED:: elf-section-data-by-name ( elf: Elf32/64_Ehdr name: string -- header/f u
     elf elf-section-headers                      :> sections
     elf e_shstrndx>>                             :> ndx
     elf ndx sections nth elf-section-data >c-ptr :> section-names
-    sections 1 tail [
+    sections rest [
         sh_name>> section-names <displaced-alien> ascii alien>string name =
     ] find nip
     [ dup elf swap elf-section-data ]
diff --git a/extra/irc/messages/parser/parser.factor b/extra/irc/messages/parser/parser.factor
index 34606eb83a..33964aef71 100644
--- a/extra/irc/messages/parser/parser.factor
+++ b/extra/irc/messages/parser/parser.factor
@@ -7,7 +7,7 @@ IN: irc.messages.parser
 
 <PRIVATE
 : split-at-first ( seq separators -- before after )
-    dupd '[ _ member? ] find [ cut 1 tail ] [ swap ] if ;
+    dupd '[ _ member? ] find [ cut rest ] [ swap ] if ;
 
 : split-trailing ( string -- string string/f ) ":" split1 ;
 : remove-heading-: ( seq -- seq ) ":" ?head drop ;