linked-assocs: change clone to use (clone).

[factor.git] / basis / linked-assocs / linked-assocs.factor

diff --git a/basis/linked-assocs/linked-assocs.factor b/basis/linked-assocs/linked-assocs.factor
index a341ecc5726b2d1d0cfdbd68f2d1b94e526169d5..2b811c08ea2feece8c1933cacddc044cd97664a8 100644 (file)
--- a/basis/linked-assocs/linked-assocs.factor
+++ b/basis/linked-assocs/linked-assocs.factor
@@ -4,6 +4,8 @@ USING: accessors arrays assocs classes deques dlists fry
 hashtables kernel parser sequences.private vocabs.loader ;
 IN: linked-assocs
 
+SLOT: dlist ! FIXME: needed for change-dlist for some reason
+
 TUPLE: linked-assoc { assoc read-only } { dlist dlist read-only } ;
 
 : <linked-assoc> ( exemplar -- assoc )
@@ -46,7 +48,7 @@ M: linked-assoc clear-assoc
     [ assoc>> clear-assoc ] [ dlist>> clear-deque ] bi ;
 
 M: linked-assoc clone
-    [ assoc>> clone ] [ dlist>> clone ] bi linked-assoc boa ;
+    (clone) [ clone ] change-assoc [ clone ] change-dlist ;
 
 INSTANCE: linked-assoc assoc