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

View File

@ -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