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

Placating Slava

db4
Daniel Ehrenberg 2009-01-15 15:43:42 -06:00
parent 5130573d56
commit 26b81f4677
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/unicode/breaks/breaks.factor
View File

@ -61,7 +61,7 @@ SYMBOL: table
: eval-seq ( seq -- seq ) [ dup word? [ execute ] when ] map ; : eval-seq ( seq -- seq ) [ dup word? [ execute ] when ] map ;
: (set-table) ( class1 class2 val -- ) : (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 -- ) : set-table ( classes1 classes2 val -- )
[ [ eval-seq ] bi@ ] dip [ [ eval-seq ] bi@ ] dip