Tweak

2008-04-01 01:40:30 -05:00 · 2008-04-01 01:40:30 -05:00 · 2223633b43
parent 38cb4f13b6
commit 2223633b43
1 changed files with 1 additions and 3 deletions
--- 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- = [