Temporary patch for assoc-map on linked-assoc

Until https://github.com/slavapestov/factor/issues/1028 is resolved
jonenst · Apr 5, 2014 · b54bffd · b54bffd
1 parent dbc6c37
commit b54bffd
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/basis/linked-assocs/linked-assocs.factor b/basis/linked-assocs/linked-assocs.factor
@@ -49,4 +49,10 @@ 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