From 2223633b432cd5f103fceefcf026d2b382e71f64 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 1 Apr 2008 01:40:30 -0500 Subject: [PATCH] Tweak --- core/generic/standard/standard.factor | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor index 4447c5a264..3898150c3b 100755 --- a/core/generic/standard/standard.factor +++ b/core/generic/standard/standard.factor @@ -39,9 +39,7 @@ ERROR: no-method object generic ; ] [ ] make ; : class-predicates ( assoc -- assoc ) - [ - >r >r picker r> "predicate" word-prop append r> - ] assoc-map ; + [ >r "predicate" word-prop picker prepend r> ] assoc-map ; : (simplify-alist) ( class i assoc -- default assoc ) 2dup length 1- = [