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

classes: fix regression from recent bug fix

release
Slava Pestov 2010-02-15 23:46:55 +13:00
parent 97428db921
commit cd1986a906
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/classes/classes.factor
View File

@ -59,15 +59,15 @@ PRIVATE>
: classes ( -- seq ) implementors-map get keys ;
PREDICATE: predicate < word "predicating" word-prop >boolean ;
: create-predicate-word ( word -- predicate )
[ name>> "?" append ] [ vocabulary>> ] bi
create dup reset-generic ;
[ name>> "?" append ] [ vocabulary>> ] bi create
dup predicate? [ dup reset-generic ] unless ;
: predicate-word ( word -- predicate )
"predicate" word-prop first ;
PREDICATE: predicate < word "predicating" word-prop >boolean ;
M: predicate flushable? drop t ;
M: predicate forget*

6
core/classes/tuple/tuple-tests.factor
View File

@ -764,3 +764,9 @@ DEFER: factor-crashes-anymore
] unit-test
[ 31337 ] [ factor-crashes-anymore ] unit-test
TUPLE: tuple-predicate-redefine-test ;
[ ] [ "IN: classes.tuple.tests TUPLE: tuple-predicate-redefine-test ;" eval( -- ) ] unit-test
[ t ] [ \ tuple-predicate-redefine-test? predicate? ] unit-test