From 564d24403981ba655b4f141bcbe6e408644ff91a Mon Sep 17 00:00:00 2001 From: John Clements Date: Fri, 22 Mar 2013 10:19:53 -0700 Subject: [PATCH] polarity flip in type error messages --- collects/json/main.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/json/main.rkt b/collects/json/main.rkt index 39bef38c73..e4f9bad741 100644 --- a/collects/json/main.rkt +++ b/collects/json/main.rkt @@ -78,13 +78,13 @@ (define first? #t) (for ([(k v) (in-hash x)]) (unless (symbol? k) - (raise-type-error 'write-json "bad JSON key value" k)) + (raise-type-error 'write-json "legal JSON key value" k)) (if first? (set! first? #f) (write-bytes #"," o)) (write (symbol->string k) o) ; no `printf' => proper escapes (write-bytes #":" o) (loop v)) (write-bytes #"}" o)] - [else (raise-type-error 'write-json "bad JSON value" x)])) + [else (raise-type-error 'write-json "legal JSON value" x)])) (void)) ;; ----------------------------------------------------------------------------