classes: call reset-generic on predicate word to avoid redefinition problems (reporte...

diff --git a/core/classes/classes-tests.factor b/core/classes/classes-tests.factor
index 10a5f674bd8fabfc68f50f8b38ddaa0c525b0c07..2b02d7c5a18363c9f650d065698f1b3f988682e7 100644 (file)
--- a/core/classes/classes-tests.factor
+++ b/core/classes/classes-tests.factor
@@ -119,3 +119,9 @@ TUPLE: forgotten-predicate-test ;
 
 [ ] [ [ \ forgotten-predicate-test forget ] with-compilation-unit ] unit-test
 [ f ] [ \ forgotten-predicate-test? predicate? ] unit-test
+
+GENERIC: generic-predicate? ( a -- b )
+
+[ ] [ "IN: classes.tests TUPLE: generic-predicate ;" eval( -- ) ] unit-test
+
+[ f ] [ \ generic-predicate? generic? ] unit-test

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index 6d68ad7fb4ef5a02d2a13f1d4679215d82718f04..a730636ca9327c27c624db6521cb379bcfd31afa 100644 (file)
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -60,7 +60,8 @@ PRIVATE>
 : classes ( -- seq ) implementors-map get keys ;
 
 : create-predicate-word ( word -- predicate )
-    [ name>> "?" append ] [ vocabulary>> ] bi create ;
+    [ name>> "?" append ] [ vocabulary>> ] bi
+    create dup reset-generic ;
 
 : predicate-word ( word -- predicate )
     "predicate" word-prop first ;