Changed to work with the new make word.

diff --git a/contrib/crypto/common.factor b/contrib/crypto/common.factor
index e93711310369410e7ebe45053b5939487951a831..03c8e5a3c2c0050e645a2059e2f0813bb92e0b55 100644 (file)
--- a/contrib/crypto/common.factor
+++ b/contrib/crypto/common.factor
@@ -47,14 +47,14 @@ unparser test parser lists ;
         dup % "\u0080" %
         dup length 64 mod zero-pad-length 0 fill %
         dup length 8 * 8 >le %
-    ] make-string nip ;
+    ] "" make nip ;
 
 : pad-string-sha1 ( string  -- padded-string )
     [
         dup % "\u0080" %
         dup length 64 mod zero-pad-length 0 fill %
         dup length 8 * 8 >be %
-    ] make-string nip ;
+    ] "" make nip ;
 
 : num-blocks ( length -- num )
     64 /i ;
@@ -67,5 +67,5 @@ unparser test parser lists ;
         [
             >hex 2 48 pad-left %
         ] each
-    ] make-string ;
+    ] "" make ;
 

diff --git a/contrib/crypto/md5.factor b/contrib/crypto/md5.factor
index 56765046fbb4c2209ef5d7fcc5f825d284bcd7fb..489345dfac993f9b859c332bd8e5874ff526fcd5 100644 (file)
--- a/contrib/crypto/md5.factor
+++ b/contrib/crypto/md5.factor
@@ -148,7 +148,7 @@ SYMBOL: old-d
 : get-md5 ( -- str )
     [
         [ a b c d ] [ get 4 >le % ] each
-    ] make-string hex-string ;
+    ] "" make hex-string ;
 
 : string>md5 ( string -- md5 )
     [

diff --git a/contrib/crypto/sha1.factor b/contrib/crypto/sha1.factor
index 00cef3dbfa55496411a63b757ec5def8a3925d7b..3cfe9df145fe24b54dad5ce82ba8d512fc28e2eb 100644 (file)
--- a/contrib/crypto/sha1.factor
+++ b/contrib/crypto/sha1.factor
@@ -33,7 +33,7 @@ SYMBOL: K
         20 [ HEX: 6ed9eba1 , ] times
         20 [ HEX: 8f1bbcdc , ] times
         20 [ HEX: ca62c1d6 , ] times
-    ] make-vector K set ;
+    ] { } make K set ;
 
 : update-hs ( -- )
     A h0 update-old-new
@@ -115,7 +115,7 @@ SYMBOL: K
 : get-sha1 ( -- str )
     [
         [ h0 h1 h2 h3 h4 ] [ get 4 >be % ] each
-    ] make-string hex-string ;
+    ] "" make hex-string ;
 
 : string>sha1 ( string -- sha1 )
     [
@@ -139,5 +139,5 @@ SYMBOL: K
     [ "a9993e364706816aba3e25717850c26c9cd0d89d" ] [ "abc" string>sha1 ] unit-test
     [ "84983e441c3bd26ebaae4aa1f95129e5e54670f1" ] [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" string>sha1 ] unit-test
     ! [ "34aa973cd4c4daa4f61eeb2bdbad27316534016f" ] [ 1000000 CHAR: a fill string>sha1 ] unit-test ! takes a long time...
-    [ "dea356a2cddd90c7a7ecedc5ebb563934f460452" ] [ "0123456701234567012345670123456701234567012345670123456701234567" [ 10 [ dup % ] times ] make-string nip string>sha1 ] unit-test ;
+    [ "dea356a2cddd90c7a7ecedc5ebb563934f460452" ] [ "0123456701234567012345670123456701234567012345670123456701234567" [ 10 [ dup % ] times ] "" make nip string>sha1 ] unit-test ;