diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor index 0c55612466..69b19899b8 100644 --- a/basis/tools/memory/memory.factor +++ b/basis/tools/memory/memory.factor @@ -242,6 +242,8 @@ M: code-blocks nth-unsafe [ cache>> ] [ blocks>> ] bi '[ _ nth-unsafe ] cache ; inline +M: code-blocks hashcode* 2drop 0 ; + INSTANCE: code-blocks immutable-sequence : code-blocks ( -- blocks ) diff --git a/core/assocs/assocs-docs.factor b/core/assocs/assocs-docs.factor index af49e22fad..ecbc2e6bc7 100644 --- a/core/assocs/assocs-docs.factor +++ b/core/assocs/assocs-docs.factor @@ -361,9 +361,9 @@ 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" } "." } -{ $side-effects assoc-diff! } ; +{ $side-effects "assoc1" } ; HELP: substitute { $values { "seq" sequence } { "assoc" assoc } { "newseq" sequence } }