Fix classes.tuple tests and assocs help lint

diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor
index 0c55612466a0149822615a74f5311e2ff882ebdd..69b19899b859f157f475740f49f313221f5ca249 100644 (file)
--- 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 <code-block> ] 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 af49e22fad71ca74c43f513ab7116d67d75c5bcb..ecbc2e6bc7e942812b7e21be51797bab7a537242 100644 (file)
--- 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 } }