From 84aa47610f4f688dd076abf2906e049c1acea78e Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Tue, 9 Mar 2010 10:22:14 -0800 Subject: [PATCH] mop up errors from test-all --- basis/regexp/minimize/minimize.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/regexp/minimize/minimize.factor b/basis/regexp/minimize/minimize.factor index a6eb4f00a2..08f7b1da58 100644 --- a/basis/regexp/minimize/minimize.factor +++ b/basis/regexp/minimize/minimize.factor @@ -3,6 +3,7 @@ USING: kernel sequences regexp.transition-tables fry assocs accessors locals math sorting arrays sets hashtables regexp.dfa combinators.short-circuit regexp.classes ; +FROM: assocs => change-at ; IN: regexp.minimize : table>state-numbers ( table -- assoc ) @@ -51,7 +52,7 @@ IN: regexp.minimize >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 new-obj comp call :> new-key new-key old-key =