From ad34221678b35ddae4d1a716b50a4eaca05a8e99 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Jul 2005 19:32:49 +0000 Subject: [PATCH] fixed bad test for mutable hash table svn: r421 --- src/mzscheme/src/list.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/list.c b/src/mzscheme/src/list.c index 01c4497f4c..fb30a8769c 100644 --- a/src/mzscheme/src/list.c +++ b/src/mzscheme/src/list.c @@ -1468,7 +1468,7 @@ int scheme_is_hash_table_equal(Scheme_Object *o) static Scheme_Object *hash_table_put(int argc, Scheme_Object *argv[]) { - if (!(SCHEME_HASHTP(argv[0]) || SCHEME_BUCKTP(argv[0])) || SCHEME_IMMUTABLEP(argv[0])) + if (!(SCHEME_HASHTP(argv[0]) && SCHEME_MUTABLEP(argv[0])) && !SCHEME_BUCKTP(argv[0])) scheme_wrong_type("hash-table-put!", "mutable hash-table", 0, argc, argv); if (SCHEME_BUCKTP(argv[0])) { @@ -1519,7 +1519,7 @@ static Scheme_Object *hash_table_get(int argc, Scheme_Object *argv[]) static Scheme_Object *hash_table_remove(int argc, Scheme_Object *argv[]) { - if (!(SCHEME_HASHTP(argv[0]) || SCHEME_BUCKTP(argv[0])) || SCHEME_IMMUTABLEP(argv[0])) + if (!(SCHEME_HASHTP(argv[0]) && SCHEME_MUTABLEP(argv[0])) && !SCHEME_BUCKTP(argv[0])) scheme_wrong_type("hash-table-remove!", "mutable hash-table", 0, argc, argv); if (SCHEME_BUCKTP(argv[0])) {