base85: fix a bug with accidental extra characters in alphabet.

diff --git a/extra/base85/base85-tests.factor b/extra/base85/base85-tests.factor
index 3c978ef56f43e9488565ddf0450bdc5d1791a906..a55b8292a0fbfd32251b70c875e5382759352f73 100644 (file)
--- a/extra/base85/base85-tests.factor
+++ b/extra/base85/base85-tests.factor
@@ -1,6 +1,7 @@
 USING: base85 kernel strings tools.test ;
 
 { t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
+{ t } [ "ready" dup >base85 base85> >string = ] unit-test
 
 { "NM!&3" } [ "He" >base85 >string ] unit-test
 { t } [ "He" dup >base85 base85> >string = ] unit-test

diff --git a/extra/base85/base85.factor b/extra/base85/base85.factor
index fb8efb2e2c7e5cb7750271aa79e6c0f234fb323b..3ddfcc8326b312a41b8bb87ffbb1b6de9225be38 100644 (file)
--- a/extra/base85/base85.factor
+++ b/extra/base85/base85.factor
@@ -11,7 +11,7 @@ ERROR: malformed-base85 ;
 
 <<
 CONSTANT: alphabet
-    "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!#$%&()*+-;<=>?@^_`{|}~\";"
+    "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!#$%&()*+-;<=>?@^_`{|}~"
 >>
 : ch>base85 ( ch -- ch )
     alphabet nth ; inline