From 39b7aa264e67557527b2f1d8f21b9dbc56fe053b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 25 Nov 2013 09:29:43 -0800
Subject: [PATCH] fix some uses of "1 tail" to be "rest".

---
 extra/ip-parser/ip-parser.factor | 2 +-
 extra/pcre/pcre-tests.factor     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/ip-parser/ip-parser.factor b/extra/ip-parser/ip-parser.factor
index 69423d62ce..2a4d45d7a4 100644
--- a/extra/ip-parser/ip-parser.factor
+++ b/extra/ip-parser/ip-parser.factor
@@ -10,7 +10,7 @@ IN: ip-parser
 
 : cleanup-octal ( str -- str )
     dup { [ "0" head? ] [ "0x" head? not ] } 1&&
-    [ 1 tail "0o" prepend ] when ;
+    [ rest "0o" prepend ] when ;
 
 : split-components ( str -- array )
     "." split [ cleanup-octal string>number ] map ;
diff --git a/extra/pcre/pcre-tests.factor b/extra/pcre/pcre-tests.factor
index e9d476243e..fc0a56483f 100644
--- a/extra/pcre/pcre-tests.factor
+++ b/extra/pcre/pcre-tests.factor
@@ -17,7 +17,7 @@ CONSTANT: iso-date "(?P<year>\\d{4})-(?P<month>\\d{2})-(?P<day>\\d{2})"
 ! On windows the erroffset appears to be set to 0 despite there being
 ! nothing wrong with the regexp.
 [ t ] [
-    "foo" (pcre) 3array 1 tail { { f -1 } { f 0 } } member?
+    "foo" (pcre) 3array rest { { f -1 } { f 0 } } member?
 ] unit-test
 
 [ { 1 2 3 } ] [