From 2bbad4ad1229842edcac50ae50608d8e32c54f61 Mon Sep 17 00:00:00 2001
From: Chongkai Zhu <chongkai@racket-lang.org>
Date: Fri, 22 Sep 2006 23:34:59 +0000
Subject: [PATCH] fix immuatable? on hash-table

svn: r4419
---
 src/mzscheme/src/list.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/list.c b/src/mzscheme/src/list.c
index ed1d7371d9..5d2f6833ff 100644
--- a/src/mzscheme/src/list.c
+++ b/src/mzscheme/src/list.c
@@ -870,7 +870,8 @@ immutablep (int argc, Scheme_Object *argv[])
 	       || SCHEME_VECTORP(v)
 	       || SCHEME_BYTE_STRINGP(v)
 	       || SCHEME_CHAR_STRINGP(v)
-	       || SCHEME_BOXP(v)))
+	       || SCHEME_BOXP(v)
+	       || SCHEME_HASHTP(v)))
 	  ? scheme_true
 	  : scheme_false);
 }