sets: make null? use cardinality.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 0417930e3cb6d6962767e7332ae5a81c1b722311..ab98c578ee846b0fdbe5997931996e52b0565d38 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -38,7 +38,7 @@ M: f clear-set drop ; inline
 
 M: set ?adjoin 2dup in? [ 2drop f ] [ adjoin t ] if ;
 
-M: set null? members null? ; inline
+M: set null? cardinality zero? ; inline
 
 M: set cardinality members length ;