Fix bloopers

core/io/encodings/utf16/utf16.factor

@@ -126,11 +126,11 @@ M: utf16 <encoder> ( stream utf16 -- encoder )
 
 ! Native-order UTF-16
 
-: native-utf16 ( -- descriptor )
-    little-endian? utf16le utf16be ? ;
+: utf16n ( -- descriptor )
+    little-endian? utf16le utf16be ? ; foldable
 
-M: utf16n <decoder> drop native-utf16 <decoder> ;
+M: utf16n <decoder> drop utf16n <decoder> ;
 
-M: utf16n <encoder> drop native-utf16 <encoder> ;
+M: utf16n <encoder> drop utf16n <encoder> ;
 
 PRIVATE>

extra/benchmark/spectral-norm/spectral-norm.factor

@@ -19,7 +19,7 @@ IN: benchmark.spectral-norm
         pick 0.0 [
             swap >r >r 2dup r> (eval-A-times-u) r> +
         ] reduce nip
-    ] F{ } map-as { float-array } declare 2nip ; inline
+    ] F{ } map-as 2nip ; inline
 
 : (eval-At-times-u) ( u i j -- x )
     tuck swap eval-A >r swap nth-unsafe r> * ; inline
@@ -29,7 +29,7 @@ IN: benchmark.spectral-norm
         pick 0.0 [
             swap >r >r 2dup r> (eval-At-times-u) r> +
         ] reduce nip
-    ] F{ } map-as { float-array } declare 2nip ; inline
+    ] F{ } map-as 2nip ; inline
 
 : eval-AtA-times-u ( n u -- seq )
     dupd eval-A-times-u eval-At-times-u ; inline

extra/bit-vectors/bit-vectors.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays kernel kernel.private math sequences
 sequences.private growable bit-arrays prettyprint.backend
-parser ;
+parser accessors ;
 IN: bit-vectors
 
 TUPLE: bit-vector underlying fill ;
@@ -44,7 +44,7 @@ M: bit-array new-resizable drop <bit-vector> ;
 
 INSTANCE: bit-vector growable
 
-: ?V \ } [ >bit-vector ] parse-literal ; parsing
+: ?V{ \ } [ >bit-vector ] parse-literal ; parsing
 
 M: bit-vector >pprint-sequence ;
 

extra/float-vectors/float-vectors.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays kernel kernel.private math sequences
 sequences.private growable float-arrays prettyprint.backend
-parser ;
+parser accessors ;
 IN: float-vectors
 
 TUPLE: float-vector underlying fill ;