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

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

db4
Doug Coleman 2014-11-08 18:41:51 -08:00
parent 45e7fd7921
commit 3c4d1e41b7
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 [ 128 iota ] 3dip { } zip-as
'[ [ _ 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 -- )