smtp: plain-auth-string should return a ... string.

2012-09-28 19:04:38 -07:00 · 2012-09-28 19:04:38 -07:00 · 39a94832bd
parent dc64c13670
commit 39a94832bd
1 changed files with 1 additions and 1 deletions
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@ -146,7 +146,7 @@ GENERIC: send-auth ( auth -- )
 M: no-auth send-auth drop ;

 : plain-auth-string ( username password -- string )
-    [ "\0" prepend ] bi@ append utf8 encode >base64 ;
+    [ "\0" prepend ] bi@ append utf8 encode >base64 >string ;

 M: plain-auth send-auth
    [ username>> ] [ password>> ] bi plain-auth-string