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

diff --git a/basis/cpu/arm/assembler/tags.txt b/basis/cpu/arm/assembler/tags.txt
deleted file mode 100644 (file)
index 6bf6830..0000000
--- a/basis/cpu/arm/assembler/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-unportable

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index 97679821ea182b61416e4741292ddc7aba29cf14..8851628b21c78753aae6cf83589c7acc1eec237b 100755 (executable)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -1630,6 +1630,7 @@ ARTICLE: "sequences-destructive" "Destructive operations"
 "Other destructive words:"
 { $subsections
     reverse!
+    append!
     push-all
     move
     exchange

diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index 58e61cc94c0a6885710740f9b5953d310edec20f..dc99542da83996356a526b7982103dce714bf892 100644 (file)
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -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