steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

linked-assocs: fixing stack effect

char-rename
Björn Lindqvist 2016-12-05 08:49:31 +01:00
parent 5c7627a777
commit df2e17a32d
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/linked-assocs/linked-assocs-docs.factor
View File

@ -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: <linked-assoc>
{ $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: <linked-hash>
{ $values { "assoc" linked-assoc } }
{ $description "Creates an empty linked assoc backed by a hashtable." } ;

2
basis/linked-assocs/linked-assocs.factor
View File

@ -50,7 +50,7 @@ M: linked-assoc clone
INSTANCE: linked-assoc assoc
: >linked-hash ( assoc -- assoc )
: >linked-hash ( assoc -- assoc' )
[ <linked-hash> ] dip assoc-union! ;
M: linked-assoc assoc-like