tools: use base91 instead of base85

diff --git a/basis/tools/directory-to-file/directory-to-file.factor b/basis/tools/directory-to-file/directory-to-file.factor
index aaab9e17e894d398a15b565e29fde5683ee3c8b1..e8bc9c061efd0b906d0b5fac35399cd4c8ab6a85 100644 (file)
--- a/basis/tools/directory-to-file/directory-to-file.factor
+++ b/basis/tools/directory-to-file/directory-to-file.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2018 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: base85 combinators command-line escape-strings fry
+USING: base91 combinators command-line escape-strings fry
 io.backend io.directories io.directories.search
 io.encodings.binary io.encodings.utf8 io.files io.files.info
 io.pathnames kernel locals math namespaces sequences
@@ -28,9 +28,9 @@ IN: tools.directory-to-file
                 { [ dup file-info directory? ] [ directory-repr ] }
                 { [ dup file-is-text? ] [ dup utf8 file-contents escape-string file-repr ] }
                 [
-                    dup binary file-contents >base85
+                    dup binary file-contents >base91
                     "" like escape-string
-                    "base85" prepend file-repr
+                    "base91" prepend file-repr
                 ]
             } cond
         ] map

diff --git a/basis/tools/file-to-directory/file-to-directory.factor b/basis/tools/file-to-directory/file-to-directory.factor
index c19ced5e0b85fd78b654ada1c926538720c11487..fed70273533eb1d6cfb2f2181013dd70271756a1 100644 (file)
--- a/basis/tools/file-to-directory/file-to-directory.factor
+++ b/basis/tools/file-to-directory/file-to-directory.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2018 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: base85 combinators command-line fry io.directories
+USING: base91 combinators command-line fry io.directories
 io.encodings.binary io.encodings.utf8 io.files io.pathnames
 kernel modern modern.out namespaces sequences splitting strings ;
 IN: tools.file-to-directory
@@ -18,8 +18,8 @@ ERROR: expected-modern-path got ;
             [
                 second first2
                 [ second >string ] [
-                    first3 nip swap "base85" head? [
-                        base85> binary
+                    first3 nip swap "base91" head? [
+                        base91> binary
                     ] [
                         utf8
                     ] if