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

using ``H{ } zip-index-as``. 

instead of ``<enum> [ swap ] H{ } assoc-map-as``.
char-rename
John Benediktsson 2016-07-16 10:53:36 -07:00
parent 1ce733ef72
commit abbefc96b9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/regexp/minimize/minimize.factor
View File

@ -6,7 +6,7 @@ regexp.transition-tables sequences sets sorting ;
IN: regexp.minimize IN: regexp.minimize
: table>state-numbers ( table -- assoc ) : table>state-numbers ( table -- assoc )
transitions>> keys <enum> [ swap ] H{ } assoc-map-as ; transitions>> keys H{ } zip-index-as ;
: number-states ( table -- newtable ) : number-states ( table -- newtable )
dup table>state-numbers transitions-at ; dup table>state-numbers transitions-at ;

2
basis/unicode/data/data.factor
View File

@ -51,7 +51,7 @@ CONSTANT: categories {
<PRIVATE <PRIVATE
MEMO: categories-map ( -- hashtable ) MEMO: categories-map ( -- hashtable )
categories <enum> [ swap ] H{ } assoc-map-as ; categories H{ } zip-index-as ;
CONSTANT: num-chars 0x2FA1E CONSTANT: num-chars 0x2FA1E