rumble: fix hash-set error message

This commit is contained in:
Matthew Flatt 2018-10-04 15:36:51 -06:00
parent ed3f9bfd6b
commit c2b5e4404a

View File

@ -166,7 +166,7 @@
[(and (impersonator? ht)
(intmap? (impersonator-val ht)))
(impersonate-hash-set ht k v)]
[else (raise-argument-error 'hash-set! "(and/c hash? immutable?)" ht)]))
[else (raise-argument-error 'hash-set "(and/c hash? immutable?)" ht)]))
(define (hash-remove ht k)
(cond