use the new bytes>hex-string.

diff --git a/basis/bootstrap/image/download/download.factor b/basis/bootstrap/image/download/download.factor
index 1a4357b677b97392f52ec78817423a404b5c2a7e..f58a53250b5c622eaa80ab6b06d8f71f326131a3 100644 (file)
--- a/basis/bootstrap/image/download/download.factor
+++ b/basis/bootstrap/image/download/download.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs bootstrap.image checksums checksums.md5
-http.client io.files kernel splitting urls ;
+http.client io.files kernel math.parser splitting urls ;
 IN: bootstrap.image.download
 
 CONSTANT: url URL" http://downloads.factorcode.org/images/latest/"
@@ -11,7 +11,7 @@ CONSTANT: url URL" http://downloads.factorcode.org/images/latest/"
     string-lines [ " " split1 ] { } map>assoc ;
 
 : file-checksum ( image -- checksum )
-    md5 checksum-file hex-string ;
+    md5 checksum-file bytes>hex-string ;
 
 : download-checksum ( image -- checksum )
     download-checksums at ;

diff --git a/basis/bootstrap/image/upload/upload.factor b/basis/bootstrap/image/upload/upload.factor
index 61fc31024bfbffdb81975041f5050b94d7d72961..5f8e6766f8f5254e51f9f052a69f467b034bfd19 100644 (file)
--- a/basis/bootstrap/image/upload/upload.factor
+++ b/basis/bootstrap/image/upload/upload.factor
@@ -29,7 +29,7 @@ SYMBOL: build-images-destination
     checksums-path ascii [
         boot-image-names [
             [ write bl ]
-            [ openssl-md5 checksum-file hex-string print ]
+            [ openssl-md5 checksum-file bytes>hex-string print ]
             bi
         ] each
     ] with-file-writer ;

diff --git a/basis/furnace/auth/login/login.factor b/basis/furnace/auth/login/login.factor
index d6160352e289c1276850bcc385a6fe57b1f778c0..48efebfc713b2b9f366320faca72ec28b2c65b8a 100644 (file)
--- a/basis/furnace/auth/login/login.factor
+++ b/basis/furnace/auth/login/login.factor
@@ -16,7 +16,7 @@ IN: furnace.auth.login
 SYMBOL: permit-id
 
 : permit-id-key ( realm -- string )
-    hex-string "__p_" prepend ;
+    bytes>hex-string "__p_" prepend ;
 
 : client-permit-id ( realm -- id/f )
     permit-id-key client-state dup [ string>number ] when ;

diff --git a/extra/benchmark/reverse-complement/reverse-complement-tests.factor b/extra/benchmark/reverse-complement/reverse-complement-tests.factor
index cc31f6e0a7628e7f048a7211959a161f019aa33c..d0f1918bdad49b807f105d62fcf67de4294344a5 100644 (file)
--- a/extra/benchmark/reverse-complement/reverse-complement-tests.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement-tests.factor
@@ -1,9 +1,9 @@
 IN: benchmark.reverse-complement.tests
-USING: benchmark.reverse-complement checksums checksums.md5 io.files
-io.files.temp kernel tools.test ;
+USING: benchmark.reverse-complement checksums checksums.md5
+io.files io.files.temp kernel math.parser tools.test ;
 
 { "c071aa7e007a9770b2fb4304f55a17e5" } [
     "resource:extra/benchmark/reverse-complement/reverse-complement-test-in.txt"
     "reverse-complement-test-out.txt" temp-file
-    [ reverse-complement ] keep md5 checksum-file hex-string
+    [ reverse-complement ] keep md5 checksum-file bytes>hex-string
 ] unit-test

diff --git a/extra/marvel/marvel.factor b/extra/marvel/marvel.factor
index 810ee79190b2c1f15c631da8ca46571cd02bf70f..883ec310099222ced60adc45088d30c3defa76a3 100644 (file)
--- a/extra/marvel/marvel.factor
+++ b/extra/marvel/marvel.factor
@@ -15,7 +15,7 @@ marvel-base-url [ "http://gateway.marvel.com/v1/public/" ] initialize
     number>string
     marvel-private-key get
     marvel-public-key get
-    3append md5 checksum-bytes hex-string ;
+    3append md5 checksum-bytes bytes>hex-string ;
 
 :: make-marvel-params-url ( endpoint params -- url )
     nano-count

diff --git a/extra/mongodb/connection/connection.factor b/extra/mongodb/connection/connection.factor
index 30096bdaeb32d90bbaa084ee05f414634233249e..df468bd0fa7391d1fcafd77ff3f19a9d04b20f5d 100644 (file)
--- a/extra/mongodb/connection/connection.factor
+++ b/extra/mongodb/connection/connection.factor
@@ -7,7 +7,7 @@ namespaces sequences splitting ;
 IN: mongodb.connection
 
 : md5-checksum ( string -- digest )
-    utf8 encode md5 checksum-bytes hex-string ; inline
+    utf8 encode md5 checksum-bytes bytes>hex-string ; inline
 
 TUPLE: mdb-db name username pwd-digest nodes collections ;
 

diff --git a/extra/oauth/oauth.factor b/extra/oauth/oauth.factor
index 07fd29e752dbd96cf953546d05c59151d60a031a..f0a3c285f80c0ab164ae4853815e68893a38808d 100644 (file)
--- a/extra/oauth/oauth.factor
+++ b/extra/oauth/oauth.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs base64 calendar checksums.hmac
 checksums.sha combinators fry http http.client kernel locals
-make math namespaces present random sequences sorting strings
-urls urls.encoding urls.private checksums ;
+make math math.parser namespaces present random sequences
+sorting strings urls urls.encoding urls.private ;
 IN: oauth
 
 SYMBOL: consumer-token
@@ -26,7 +26,7 @@ nonce ;
     new
         consumer-token get >>consumer-token
         now timestamp>unix-time >integer >>timestamp
-        16 random-bytes hex-string >>nonce ; inline
+        16 random-bytes bytes>hex-string >>nonce ; inline
 
 : present-base-url ( url -- string )
     [