From 846d2315ff2032c4a6f1e1da469b88ed300cc5c9 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 7 Feb 2017 14:54:57 -0800 Subject: [PATCH] sets: use = instead of eq? in M\ set set=. --- core/sets/sets.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/sets/sets.factor b/core/sets/sets.factor index 8fc4210455..9000bdd926 100644 --- a/core/sets/sets.factor +++ b/core/sets/sets.factor @@ -41,7 +41,7 @@ M: set ?adjoin 2dup in? [ 2drop f ] [ adjoin t ] if ; M: set ?delete 2dup in? [ delete t ] [ 2drop f ] if ; -M: set null? cardinality zero? ; inline +M: set null? cardinality 0 = ; inline M: set cardinality members length ; @@ -98,7 +98,7 @@ M: set subset? 2dup [ cardinality ] bi@ > [ 2drop f ] [ (subset?) ] if ; M: set set= - 2dup [ cardinality ] bi@ eq? [ (subset?) ] [ 2drop f ] if ; + 2dup [ cardinality ] bi@ = [ (subset?) ] [ 2drop f ] if ; M: set fast-set ;