From 82ad6cec2e63a19484d7412628cc341d912e8750 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 26 Jan 2019 07:14:09 -0800
Subject: [PATCH] base85: simpler pad math.

---
 extra/base85/base85.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/base85/base85.factor b/extra/base85/base85.factor
index 22fcf752b7..40088ff40f 100644
--- a/extra/base85/base85.factor
+++ b/extra/base85/base85.factor
@@ -30,7 +30,7 @@ CONSTANT: alphabet
         [
             drop
             [ 4 0 pad-tail encode4 ]
-            [ length neg 4 rem head-slice* write-lines ] bi
+            [ length 4 swap - head-slice* write-lines ] bi
             (encode-base85)
         ]
     } case ;
@@ -55,7 +55,7 @@ PRIVATE>
         [
             drop
             [ 5 CHAR: ~ pad-tail decode5 ]
-            [ length neg 5 rem head-slice* write ] bi
+            [ length 5 swap - head-slice* write ] bi
             (decode-base85)
         ]
     } case ;