steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "tr: zip had a string as input. call { } zip-as instead." 

This reverts commit 3c4d1e41b7.
db4
John Benediktsson 2014-11-11 17:56:15 -08:00
parent 9a3a533712
commit f8ddcfd2d0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tr/tr.factor
View File

@ -18,7 +18,7 @@ M: bad-tr summary
[ [ ascii? ] all? ] both? [ bad-tr ] unless ; [ [ ascii? ] all? ] both? [ bad-tr ] unless ;
: compute-tr ( quot from to -- mapping ) : 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 '[ [ _ call( x -- y ) _ at ] keep or ] B{ } map-as ; inline
: tr-hints ( word -- ) : tr-hints ( word -- )