Merge branch 'master' of git://factorcode.org/git/factor

db4
Joe Groff 2009-10-28 16:19:37 -05:00
commit c5c31b4300
3 changed files with 7 additions and 1 deletions

View File

@ -1 +0,0 @@
unportable

View File

@ -1630,6 +1630,7 @@ ARTICLE: "sequences-destructive" "Destructive operations"
"Other destructive words:"
{ $subsections
reverse!
append!
push-all
move
exchange

View File

@ -24,6 +24,12 @@ IN: sequences.tests
[ 5040 { 1 1 2 6 24 120 720 } ]
[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate ] unit-test
[ 5040 { 1 1 2 6 24 120 720 } ]
[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate! ] unit-test
[ t ]
[ { 1 2 3 4 5 6 7 } dup 1 [ * ] accumulate! nip eq? ] unit-test
[ f f ] [ [ ] [ ] find ] unit-test
[ 0 1 ] [ [ 1 ] [ ] find ] unit-test
[ 1 "world" ] [ [ "hello" "world" ] [ "world" = ] find ] unit-test