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

polarity flip in type error messages

Browse Source
This commit is contained in:
John Clements 2013-03-22 10:19:53 -07:00
parent f1e5bd8fd4
commit 564d244039
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/json/main.rkt
View File

@ -78,13 +78,13 @@
(define first? #t) (define first? #t)
(for ([(k v) (in-hash x)]) (for ([(k v) (in-hash x)])
(unless (symbol? k) (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)) (if first? (set! first? #f) (write-bytes #"," o))
(write (symbol->string k) o) ; no `printf' => proper escapes (write (symbol->string k) o) ; no `printf' => proper escapes
(write-bytes #":" o) (write-bytes #":" o)
(loop v)) (loop v))
(write-bytes #"}" o)] (write-bytes #"}" o)]
[else (raise-type-error 'write-json "bad JSON value" x)])) [else (raise-type-error 'write-json "legal JSON value" x)]))
(void)) (void))
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------