added delete-tuples word

2009-05-10 11:54:42 +02:00 · 2009-05-10 11:54:42 +02:00 · 87caa8d7a0
parent 5399fe1d3d
commit 87caa8d7a0
1 changed files with 3 additions and 0 deletions
--- a/extra/mongodb/tuple/tuple.factor
+++ b/extra/mongodb/tuple/tuple.factor
@ -75,6 +75,9 @@ PRIVATE>
   [ tuple-collection name>> ] keep
   id-selector delete ;

+: delete-tuples ( seq -- )
+    [ delete-tuple ] each ;
+
 : tuple>query ( tuple -- query )
   [ tuple-collection name>> ] keep
   tuple>selector <query> ;