sets: implement M\ f delete.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 6528b393eba9a37cf420da0e04bbd7bf2478d1cd..e048edf512cab38710d102b6b7435fbf512070fe 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -26,6 +26,8 @@ GENERIC: clear-set ( set -- )
 
 M: f cardinality drop 0 ;
 
+M: f delete 2drop ;
+
 M: f clear-set drop ; inline
 
 ! Defaults for some methods.