Add 'unportable' tag in place of hard-coded list of 'dangerous' vocabs in load-everything

[factor.git] / basis / disjoint-sets / disjoint-sets.factor

diff --git a/basis/disjoint-sets/disjoint-sets.factor b/basis/disjoint-sets/disjoint-sets.factor
index 7879f3fbb616825e1305cd151ff86c6166b04072..284d206da4fea8abef9f9dab2416e074b819c326 100644 (file)
--- a/basis/disjoint-sets/disjoint-sets.factor
+++ b/basis/disjoint-sets/disjoint-sets.factor
@@ -86,3 +86,7 @@ M:: disjoint-set equate ( a b disjoint-set -- )
         [ swap ] [ over disjoint-set inc-rank ] [ ] branch
         disjoint-set link-sets
     ] if ;
+
+M: disjoint-set clone
+    [ parents>> ] [ ranks>> ] [ counts>> ] tri [ clone ] tri@
+    disjoint-set boa ;