Unit test fixes

core/hashtables/hashtables-tests.factor

@@ -157,8 +157,12 @@ H{ } "x" set
 ] unit-test
 
 [ { "one" "two" 3 } ] [
-    H{ { 1 "one" } { 2 "two" } }
+    { 1 2 3 } clone dup
-    { 1 2 3 } clone [ substitute ] keep
+    H{ { 1 "one" } { 2 "two" } } substitute-here
+] unit-test
+
+[ { "one" "two" 3 } ] [
+    { 1 2 3 } H{ { 1 "one" } { 2 "two" } } substitute
 ] unit-test
 
 [ f ] [ { 0 1 1 2 3 5 } all-unique? ] unit-test

extra/cryptlib/streams/streams.factor

@@ -23,10 +23,10 @@ TUPLE: crypt-stream handle eof? ;
     CRYPT_SESSINFO_ACTIVE 1 set-attribute ;
 
 : <crypt-stream> ( handle -- stream )
-    crypt-stream construct-empty
+    dup init-crypt-stream
-    over init-crypt-stream
+    default-buffer-size <buffer>
-    default-buffer-size <buffer> over set-delegate
+    { set-crypt-stream-handle set-delegate }
-    tuck set-crypt-stream-handle 
+    crypt-stream construct
     dup <line-reader> swap <plain-writer> <duplex-stream> ;
 
 : check-read ( err -- eof? )

extra/smtp/smtp-tests.factor

@@ -62,7 +62,7 @@ IN: temporary
         "Subject: Factor rules"
         f
         f
-        " "
+        ""
         "Hi guys"
         "Bye guys"
     }