sets: implement M\ f delete.

db4
John Benediktsson 2013-03-08 22:26:56 -08:00
parent 80ac71ad86
commit 231cb79282
1 changed files with 2 additions and 0 deletions

View File

@ -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.