fix some uses of "1 tail" to be "rest".

diff --git a/extra/ip-parser/ip-parser.factor b/extra/ip-parser/ip-parser.factor
index 69423d62ce149c57efccc2392ba63241df064122..2a4d45d7a4760668433ec002ba8fcb84528a4b7b 100644 (file)
--- 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 e9d476243e55368ff5ea8904a6e7cfdbab7bf3fc..fc0a56483f294a0036231ee0ea8040bcf2def09b 100644 (file)
--- 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 } ] [