Fix a runtime string hashing bug

library/io/string-streams.factor

@@ -24,7 +24,7 @@ M: sbuf stream-flush drop ;
 
 : map-last ( seq quot -- seq | quot: elt last? )
     swap dup length <reversed>
-    [ zero? rot [ call ] keep swap ] 2map nip ;
+    [ zero? rot [ call ] keep swap ] 2map nip ; inline
 
 M: plain-writer with-stream-table ( quot grid stream -- )
     -rot [ [ swap string-out ] map-with ] map-with

vm/string.c

@@ -16,6 +16,7 @@ F_STRING* allot_string(F_FIXNUM capacity)
 	UTF16 string for C library calls. */
 	cput(SREF(string,capacity),(u16)'\0');
 	string->length = tag_fixnum(capacity);
+	string->hashcode = F;
 	return string;
 }