Update references to "1 tail" to use "rest".

diff --git a/basis/math/polynomials/polynomials.factor b/basis/math/polynomials/polynomials.factor
index 7e43ec94ba331aa85f1aa351801464884935f912..966adb3db4e28d02e6b203e0a25290727c67fb07 100644 (file)
--- 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 d2437d9a9bf7926b72bb892a3d5fd7ee1c355c4f..b1cbb17289c7b327d4768e17e3704bfcb9d20fac 100644 (file)
--- 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 34606eb83afed3ed7ea3bb30453506f6aba41df7..33964aef71bbc96b257934cc66cd06c455c33f19 100644 (file)
--- 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 ;