From 3b39cfc4b86707298b30dcbd562ceb88251b041c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 18 Apr 2009 18:15:33 +0000
Subject: [PATCH] fixed two uses of raise-type-error (PR 10208)

svn: r14555
---
 collects/scheme/dict.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/scheme/dict.ss b/collects/scheme/dict.ss
index 6648afbe29..e90cf849bb 100644
--- a/collects/scheme/dict.ss
+++ b/collects/scheme/dict.ss
@@ -150,7 +150,7 @@
      [(dict-struct? d)
       ((get-dict-ref (dict-struct-ref d)) d key)]
      [else
-      (raise-type-error 'dict-ref 'dict 0 d key)])]
+      (raise-type-error 'dict-ref "dict" 0 d key)])]
    [(d key default)
     (cond
      [(hash? d) (hash-ref d key default)]
@@ -170,7 +170,7 @@
      [(dict-struct? d)
       ((get-dict-ref (dict-struct-ref d)) d key default)]
      [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)
   (cond