base64: Add a version of url-base64 that trims trailing === for jwt.

[factor.git] / basis / base64 / base64.factor

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index e9b9b62d13c7f6e5002695276ff964a902860db2..a85768aafe76140afaf85b561e8d005c75217ff1 100644 (file)
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -146,6 +146,9 @@ PRIVATE>
         { CHAR: / CHAR: _ }
     } substitute ;
 
+: >urlsafe-base64-jwt ( seq -- base64 )
+    >urlsafe-base64 [ CHAR: = = ] trim-tail ;
+
 : urlsafe-base64> ( base64 -- seq )
     H{
         { CHAR: - CHAR: + }