From 3d55e79a2c757cf9f4b2921ea3072ae3c47358cb Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 15 Jul 2015 20:17:52 -0700
Subject: [PATCH] base64: include alphabet-inverse in compilation unit

---
 basis/base64/base64.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 140d897cc3..c2efa32c1b 100644
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -24,12 +24,12 @@ ERROR: malformed-base64 ;
 <<
 CONSTANT: alphabet
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
->>
 
 : alphabet-inverse ( alphabet -- seq )
     dup supremum 1 + f <array> [
         '[ swap _ set-nth ] each-index
     ] keep ;
+>>
 
 : ch>base64 ( ch -- ch )
     alphabet nth ; inline