suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bad test for mutable hash table

Browse Source 
svn: r421
This commit is contained in:
Matthew Flatt 2005-07-21 19:32:49 +00:00
parent 0e3a5f01df
commit ad34221678
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/list.c
View File

@ -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])) {