steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-11-25 09:29:43 -08:00
parent e4e349741b
commit 39b7aa264e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/ip-parser/ip-parser.factor
View File

@ -10,7 +10,7 @@ IN: ip-parser
: cleanup-octal ( str -- str ) : cleanup-octal ( str -- str )
dup { [ "0" head? ] [ "0x" head? not ] } 1&& dup { [ "0" head? ] [ "0x" head? not ] } 1&&
[ 1 tail "0o" prepend ] when ; [ rest "0o" prepend ] when ;
: split-components ( str -- array ) : split-components ( str -- array )
"." split [ cleanup-octal string>number ] map ; "." split [ cleanup-octal string>number ] map ;

2
extra/pcre/pcre-tests.factor
View File

@ -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 ! On windows the erroffset appears to be set to 0 despite there being
! nothing wrong with the regexp. ! nothing wrong with the regexp.
[ t ] [ [ t ] [
"foo" (pcre) 3array 1 tail { { f -1 } { f 0 } } member? "foo" (pcre) 3array rest { { f -1 } { f 0 } } member?
] unit-test ] unit-test
[ { 1 2 3 } ] [ [ { 1 2 3 } ] [