Fixing minor bugs

extra/html/html-tests.factor

@@ -3,7 +3,9 @@ namespaces tools.test xml.writer sbufs sequences html.private ;
 IN: html.tests
 
 : make-html-string
-    [ with-html-stream ] with-string-writer ;
+    [ with-html-stream ] with-string-writer ; inline
+
+[ [ ] make-html-string ] must-infer
 
 [ ] [
     512 <sbuf> <html-stream> drop

extra/html/html.factor

@@ -194,7 +194,7 @@ M: html-stream stream-nl ( stream -- )
 
 ! Utilities
 : with-html-stream ( quot -- )
-    stdio get <html-stream> swap with-stream* ;
+    stdio get <html-stream> swap with-stream* ; inline
 
 : xhtml-preamble
     "<?xml version=\"1.0\"?>" write-html

extra/serialize/serialize.factor

@@ -246,7 +246,7 @@ SYMBOL: deserialized
     (deserialize) <wrapper> ;
 
 :: (deserialize-seq) ( exemplar quot -- seq )
-    deserialize-cell exemplar new
+    deserialize-cell exemplar new-sequence
     [ intern-object ]
     [ dup [ drop quot call ] change-each ] bi ; inline
 

extra/state-parser/state-parser.factor

@@ -97,7 +97,7 @@ SYMBOL: prolog-data
     #! advance spot to after the substring.
     [ [
         dup slip swap dup [ get-char , ] unless
-    ] skip-until ] "" make nip ;
+    ] skip-until ] "" make nip ; inline
 
 : rest ( -- string )
     [ f ] take-until ;

extra/xml/tests/test.factor

@@ -6,6 +6,8 @@ USING: kernel xml tools.test io namespaces sequences xml.errors xml.entities
     continuations assocs sequences.deep ;
 
 ! This is insufficient
+\ read-xml must-infer
+
 SYMBOL: xml-file
 [ ] [ "extra/xml/tests/test.xml" resource-path
     [ file>xml ] with-html-entities xml-file set ] unit-test