Placating Slava

2009-01-15 15:43:42 -06:00 · 2009-01-15 15:43:42 -06:00 · 26b81f4677
parent 5130573d56
commit 26b81f4677
1 changed files with 1 additions and 1 deletions
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@ -61,7 +61,7 @@ SYMBOL: table
 : eval-seq ( seq -- seq ) [ dup word? [ execute ] when ] map ;

 : (set-table) ( class1 class2 val -- )
-    -rot table get nth [ swap or ] change-nth ;
+    [ table get nth ] dip '[ _ or ] change-nth ;

 : set-table ( classes1 classes2 val -- )
    [ [ eval-seq ] bi@ ] dip