From 231cb7928226a3640b3e4707c3a86d92cd67d3c0 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 8 Mar 2013 22:26:56 -0800
Subject: [PATCH] sets: implement M\ f delete.

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

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 6528b393eb..e048edf512 100644
--- 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.