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

fixed two uses of raise-type-error (PR 10208)

Browse Source 
svn: r14555
This commit is contained in:
Eli Barzilay 2009-04-18 18:15:33 +00:00
parent c33870fa04
commit 3b39cfc4b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/dict.ss
View File

@ -150,7 +150,7 @@
[(dict-struct? d) [(dict-struct? d)
((get-dict-ref (dict-struct-ref d)) d key)] ((get-dict-ref (dict-struct-ref d)) d key)]
[else [else
(raise-type-error 'dict-ref 'dict 0 d key)])] (raise-type-error 'dict-ref "dict" 0 d key)])]
[(d key default) [(d key default)
(cond (cond
[(hash? d) (hash-ref d key default)] [(hash? d) (hash-ref d key default)]
@ -170,7 +170,7 @@
[(dict-struct? d) [(dict-struct? d)
((get-dict-ref (dict-struct-ref d)) d key default)] ((get-dict-ref (dict-struct-ref d)) d key default)]
[else [else
(raise-type-error 'dict-ref 'dict 0 d key default)])])) (raise-type-error 'dict-ref "dict" 0 d key default)])]))
(define (dict-set! d key val) (define (dict-set! d key val)
(cond (cond