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

mop up errors from test-all

db4
Joe Groff 2010-03-09 10:22:14 -08:00
parent e7968ceffc
commit 84aa47610f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,6 +3,7 @@
USING: kernel sequences regexp.transition-tables fry assocs USING: kernel sequences regexp.transition-tables fry assocs
accessors locals math sorting arrays sets hashtables regexp.dfa accessors locals math sorting arrays sets hashtables regexp.dfa
combinators.short-circuit regexp.classes ; combinators.short-circuit regexp.classes ;
FROM: assocs => change-at ;
IN: regexp.minimize IN: regexp.minimize
: table>state-numbers ( table -- assoc ) : table>state-numbers ( table -- assoc )
@ -51,7 +52,7 @@ IN: regexp.minimize
<reversed> <reversed>
>hashtable ; >hashtable ;
:: (while-changes) ( obj quot: ( obj -- obj' ) comp: ( obj -- key ) old-key -- obj ) :: (while-changes) ( ..a obj quot: ( ..a obj -- ..b obj' ) comp: ( ..b obj' -- ..a key ) old-key -- ..a obj )
obj quot call :> new-obj obj quot call :> new-obj
new-obj comp call :> new-key new-obj comp call :> new-key
new-key old-key = new-key old-key =