Fix classes.tuple tests and assocs help lint
parent
3d8f77ca56
commit
10fe9a811b
|
@ -242,6 +242,8 @@ M: code-blocks nth-unsafe
|
||||||
[ cache>> ] [ blocks>> ] bi
|
[ cache>> ] [ blocks>> ] bi
|
||||||
'[ _ nth-unsafe <code-block> ] cache ; inline
|
'[ _ nth-unsafe <code-block> ] cache ; inline
|
||||||
|
|
||||||
|
M: code-blocks hashcode* 2drop 0 ;
|
||||||
|
|
||||||
INSTANCE: code-blocks immutable-sequence
|
INSTANCE: code-blocks immutable-sequence
|
||||||
|
|
||||||
: code-blocks ( -- blocks )
|
: code-blocks ( -- blocks )
|
||||||
|
|
|
@ -361,9 +361,9 @@ HELP: assoc-diff
|
||||||
;
|
;
|
||||||
|
|
||||||
HELP: assoc-diff!
|
HELP: assoc-diff!
|
||||||
{ $values { "assoc1" assoc } { "assoc2" assoc } { "diff" "a new assoc" } }
|
{ $values { "assoc1" assoc } { "assoc2" assoc } }
|
||||||
{ $description "Removes all entries from " { $snippet "assoc1" } " whose key is contained in " { $snippet "assoc2" } "." }
|
{ $description "Removes all entries from " { $snippet "assoc1" } " whose key is contained in " { $snippet "assoc2" } "." }
|
||||||
{ $side-effects assoc-diff! } ;
|
{ $side-effects "assoc1" } ;
|
||||||
|
|
||||||
HELP: substitute
|
HELP: substitute
|
||||||
{ $values { "seq" sequence } { "assoc" assoc } { "newseq" sequence } }
|
{ $values { "seq" sequence } { "assoc" assoc } { "newseq" sequence } }
|
||||||
|
|
Loading…
Reference in New Issue