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

Provide more information in `hash/c' error messages.

Browse Source 
Signed-Off-By: sstrickl

svn: r17279
This commit is contained in:
Sam Tobin-Hochstadt 2009-12-13 03:17:05 +00:00
parent 961ece3ffe
commit fde17c1567
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/contract/private/misc.ss
View File

@ -1198,14 +1198,14 @@
(λ (val) (λ (val)
(unless (hash? val) (unless (hash? val)
(raise-contract-error val src-info pos-blame orig-str (raise-contract-error val src-info pos-blame orig-str
"expected a hash")) "expected a hash, got ~a" val))
(case immutable (case immutable
[(#t) (unless (immutable? val) [(#t) (unless (immutable? val)
(raise-contract-error val src-info pos-blame orig-str (raise-contract-error val src-info pos-blame orig-str
"expected an immutable hash"))] "expected an immutable hash, got ~a" val))]
[(#f) (when (immutable? val) [(#f) (when (immutable? val)
(raise-contract-error val src-info pos-blame orig-str (raise-contract-error val src-info pos-blame orig-str
"expected a mutable hash"))] "expected a mutable hash, got ~a" val))]
[(dont-care) (void)]) [(dont-care) (void)])
(hash-for-each (hash-for-each