Temporary patch for assoc-map on linked-assoc

[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 3d3ce4942d553ffdb78941217ff522966f696ff3..ab1587319ec1d7cd8543356278e31ec01e5fe141 100644 (file)
--- a/basis/linked-assocs/linked-assocs.factor
+++ b/basis/linked-assocs/linked-assocs.factor
@@ -48,6 +48,12 @@ M: linked-assoc clear-assoc
 M: linked-assoc clone
     [ assoc>> clone ] [ dlist>> clone ] bi linked-assoc boa ;
 
+: >linked-assoc ( assoc -- linked-assoc )
+    >alist [ <linked-hash> ] dip assoc-union! ;
+
+M: linked-assoc assoc-like
+    drop dup linked-assoc? [ >linked-assoc ] unless ; inline
+
 INSTANCE: linked-assoc assoc
 
 : >linked-hash ( assoc -- assoc )