From 3c4d1e41b76eafbfa48e272276e8a1216a694647 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 8 Nov 2014 18:41:51 -0800
Subject: [PATCH] tr: zip had a string as input. call { } zip-as instead.

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

diff --git a/basis/tr/tr.factor b/basis/tr/tr.factor
index a76bf80dc2..8a95ea5e53 100644
--- a/basis/tr/tr.factor
+++ b/basis/tr/tr.factor
@@ -18,7 +18,7 @@ M: bad-tr summary
     [ [ ascii? ] all? ] both? [ bad-tr ] unless ;
 
 : compute-tr ( quot from to -- mapping )
-    [ 128 iota ] 3dip zip
+    [ 128 iota ] 3dip { } zip-as
     '[ [ _ call( x -- y ) _ at ] keep or ] B{ } map-as ; inline
 
 : tr-hints ( word -- )