On Fri, 27 Jan 2012 13:58:50 +0100
Alexander Burger <a...@software-lab.de> wrote:
> 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 "_")
> (let X @
> (if (and (= "-" X) (format (peek)))
> (- (read))
> X ) ) ) ) )
That seems to work for all my test cases, thanks! Changed it in the
Rosetta page too.