From 10fe9a811b698cf899177b7ec5bb8d97f4a121e8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 4 Feb 2010 08:04:47 +1300
Subject: [PATCH] Fix classes.tuple tests and assocs help lint

---
 basis/tools/memory/memory.factor | 2 ++
 core/assocs/assocs-docs.factor   | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

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 <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 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 } }