change to in-place reverse.

diff --git a/basis/math/polynomials/polynomials.factor b/basis/math/polynomials/polynomials.factor
index e85d71e7a605336356289afd01f38f23f3ab369d..045b661602cb2d3b50929f944130095e309def5d 100644 (file)
--- a/basis/math/polynomials/polynomials.factor
+++ b/basis/math/polynomials/polynomials.factor
@@ -36,7 +36,7 @@ ALIAS: n*p n*v
     [ drop length [ iota ] keep ]
     [ nip <reversed> ]
     [ drop ] 2tri
-    '[ _ _ <slice> _ v* sum ] map reverse ;
+    '[ _ _ <slice> _ v* sum ] map reverse! ;
 
 : p-sq ( p -- p^2 ) dup p* ; inline
 

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index b40352612037a18ff5a576453df46988be84f7c1..331da4c90b0f15ecdb38a368af7b5b17d76d240b 100644 (file)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -130,7 +130,7 @@ ERROR: no-method arguments generic ;
 
 : multi-dispatch-quot ( methods generic -- quot )
     [ make-default-method ]
-    [ drop [ [ multi-predicate ] dip ] assoc-map reverse ]
+    [ drop [ [ multi-predicate ] dip ] assoc-map reverse! ]
     2bi alist>quot ;
 
 ! Generic words