using reverse! when possible.

basis/unicode/breaks/breaks.factor

@@ -128,7 +128,7 @@ PRIVATE>
     [ first-grapheme ] >pieces ;
 
 : string-reverse ( str -- rts )
-    >graphemes reverse concat ;
+    >graphemes reverse! concat ;
 
 <PRIVATE
 

core/classes/classes.factor

@@ -102,7 +102,7 @@ M: predicate reset-word
     dup class? [ "superclass" word-prop ] [ drop f ] if ;
 
 : superclasses ( class -- supers )
-    [ superclass ] follow reverse ;
+    [ superclass ] follow reverse! ;
 
 : superclass-of? ( class superclass -- ? )
     superclasses member-eq? ;

core/combinators/combinators.factor

@@ -87,7 +87,7 @@ ERROR: no-cond ;
 
 : cond>quot ( assoc -- quot )
     [ dup pair? [ [ t ] swap 2array ] unless ] map
-    reverse [ no-cond ] swap alist>quot ;
+    reverse! [ no-cond ] swap alist>quot ;
 
 ! case
 ERROR: no-case object ;

core/splitting/splitting.factor

@@ -48,7 +48,7 @@ PRIVATE>
     dupd find drop [ swap [ dup 1 + ] dip snip ] [ f ] if* ; inline
 
 : split1-last ( seq subseq -- before after )
-    [ <reversed> ] bi@ split1 [ reverse ] bi@
+    [ <reversed> ] bi@ split1 [ reverse! ] bi@
     dup [ swap ] when ;
 
 : split1-last-slice ( seq subseq -- before-slice after-slice )