From f8ddcfd2d0ffa3d0b6bb768e2ab7e9e7a9b9d274 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 11 Nov 2014 17:56:15 -0800 Subject: [PATCH] Revert "tr: zip had a string as input. call { } zip-as instead." This reverts commit 3c4d1e41b76eafbfa48e272276e8a1216a694647. --- 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 8a95ea5e53..a76bf80dc2 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-as + [ 128 iota ] 3dip zip '[ [ _ call( x -- y ) _ at ] keep or ] B{ } map-as ; inline : tr-hints ( word -- )