From 96336d2f6cc1ad280a216e25ca5b867c7ee18a72 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 4 Apr 2016 21:06:21 -0700
Subject: [PATCH] sets: make null? use cardinality.

---
 core/sets/sets.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 0417930e3c..ab98c578ee 100644
--- 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 ;