doesn't parse a lone number

[vegashacker]

> (require (only-in (planet "json.ss" ("dherman" "json.plt" 1 (= 1))) (read read-json)))
> (read-json (open-input-string "1"))
char=?: expects type <character> as 1st argument, given: #<eof>; other arguments were: #\.  

[vegashacker]

Here's a patch that fixes the problem (not necessarily how you want to fix it, but fyi):

Index: json.ss
===================================================================
--- json.ss     (revision 1081)
+++ json.ss     (working copy)
@@ -149,7 +149,8 @@
   (void))

 (define (decimal-point? ch)
-  (char=? ch #\.))
+  (and (char? ch) ; because eof-object can be passed in
+       (char=? ch #\.)))

[dherman]

Fixed and updated.

Dave