multisets: Fix multiset-clear (size was not reset)

[factor.git] / extra / multisets / multisets.factor

diff --git a/extra/multisets/multisets.factor b/extra/multisets/multisets.factor
index 0c06eaf8be1c6c4a7186a3c3bd4a14145eb2e1d0..bcc4358265bd66362f83990610c57af0d376283b 100644 (file)
--- a/extra/multisets/multisets.factor
+++ b/extra/multisets/multisets.factor
@@ -28,7 +28,8 @@ TUPLE: multiset size avl hash ;
 
 : multiset-clear ( multiset -- )
     [ hash>> clear-assoc ]
-    [ avl>> f >>root 0 >>count drop ] bi ;
+    [ avl>> f >>root 0 >>count drop ]
+    [ 0 >>size drop ] tri ;
 
 : multiset-empty? ( multiset -- ? ) avl>> assoc-size 0 eq? ; inline