subset? was broken...

diff --git a/core/sets/sets-tests.factor b/core/sets/sets-tests.factor
index df6185671c098c015e28d54f0e530b6c8159b586..803a983fcf4245759fd67c87869f20ca52c7d327 100644 (file)
--- a/core/sets/sets-tests.factor
+++ b/core/sets/sets-tests.factor
@@ -74,3 +74,9 @@ IN: sets.tests
 [ 1 ] [ { 1 } cardinality ] unit-test
 [ 1 ] [ HS{ 1 } cardinality ] unit-test
 [ 3 ] [ HS{ 1 2 3 } cardinality ] unit-test
+
+
+[ f ] [ { 1 2 3 4 } { 1 2 } subset? ] unit-test
+[ t ] [ { 1 2 3 4 } { 1 2 } swap subset? ] unit-test
+[ t ] [ { 1 2 } { 1 2 } subset? ] unit-test
+[ t ] [ { 1 2 } { 1 2 } swap subset? ] unit-test

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 06f6e04655417689af351b0194c2dbfe6635f173..8a84cc597b215dae57825a542cdc0a74dd8bfdc8 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -61,7 +61,7 @@ M: set intersects?
     small/large sequence/tester any? ;
 
 M: set subset?
-    small/large sequence/tester all? ;
+    sequence/tester all? ;
 
 M: set set=
     2dup [ cardinality ] bi@ eq? [ subset? ] [ 2drop f ] if ;