Re: Bug in the JSON example in rosetta

[Alexander Burger]

On Fri, Jan 27, 2012 at 01:48:41PM +0100, Alexander Burger wrote:
> Let me check more thoroughly.

How about that?

   (de readJson ()
      (case (read "_")
         ...
         (T
            (let X @
               (if (and (= "-" X) (format (peek)))
                  (- (read))
                  X ) ) ) ) )
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe