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

Tweak

db4
Slava Pestov 2008-04-01 01:40:30 -05:00
parent 38cb4f13b6
commit 2223633b43
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/generic/standard/standard.factor
View File

@ -39,9 +39,7 @@ ERROR: no-method object generic ;
] [ ] make ; ] [ ] make ;
: class-predicates ( assoc -- assoc ) : class-predicates ( assoc -- assoc )
[ [ >r "predicate" word-prop picker prepend r> ] assoc-map ;
>r >r picker r> "predicate" word-prop append r>
] assoc-map ;
: (simplify-alist) ( class i assoc -- default assoc ) : (simplify-alist) ( class i assoc -- default assoc )
2dup length 1- = [ 2dup length 1- = [