diff --git a/basis/linked-assocs/linked-assocs-docs.factor b/basis/linked-assocs/linked-assocs-docs.factor index 2e9ce0169d..dde17dcccc 100644 --- a/basis/linked-assocs/linked-assocs-docs.factor +++ b/basis/linked-assocs/linked-assocs-docs.factor @@ -1,5 +1,5 @@ IN: linked-assocs -USING: help.markup help.syntax assocs ; +USING: assocs help.markup help.syntax linked-assocs.prettyprint ; HELP: linked-assoc { $class-description "The class of linked assocs. Linked assoc are implemented by combining an assoc with a dlist. The assoc is used for lookup and retrieval of single values, while the dlist is used for getting lists of keys/values, which will be in insertion order." } ; @@ -8,6 +8,10 @@ HELP: { $values { "exemplar" "an exemplar assoc" } { "assoc" linked-assoc } } { $description "Creates an empty linked assoc backed by a new instance of the same type as the exemplar." } ; +HELP: >linked-hash +{ $values { "assoc" assoc } { "assoc'" linked-hash } } +{ $description "Creates a new " { $link linked-hash } " containing the same elements as 'assoc'. The keys are inserted in the same order as the input assoc, if it has an order." } ; + HELP: { $values { "assoc" linked-assoc } } { $description "Creates an empty linked assoc backed by a hashtable." } ; diff --git a/basis/linked-assocs/linked-assocs.factor b/basis/linked-assocs/linked-assocs.factor index 3dfe788822..a341ecc572 100644 --- a/basis/linked-assocs/linked-assocs.factor +++ b/basis/linked-assocs/linked-assocs.factor @@ -50,7 +50,7 @@ M: linked-assoc clone INSTANCE: linked-assoc assoc -: >linked-hash ( assoc -- assoc ) +: >linked-hash ( assoc -- assoc' ) [ ] dip assoc-union! ; M: linked-assoc assoc-like