From 26b81f4677069c51b726d0163fd25dc81fd675eb Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 15 Jan 2009 15:43:42 -0600 Subject: [PATCH] Placating Slava --- basis/unicode/breaks/breaks.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor index 0524825d43..e3e1282676 100644 --- 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