On Fri, 27 Jan 2012 13:58:50 +0100
Alexander Burger 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 "_")
> ...
> (T
> (let X @
>
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))
On Fri, Jan 27, 2012 at 01:45:12PM +0100, Alexander Burger wrote:
> We can simply add the "-" character to the atom-specifiers:
Sorry, forget that. These are only for symbols :(
Let me check more thoroughly.
Cheers,
- Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Hi José,
> Hmmm, it still doesn't work quite well, it chokes on negative
Oops again ;-)
> numbers, no idea how to fix that. :(
We can simply add the "-" character to the atom-specifiers:
(de readJson ()
(case (read "-_")
("{"
...
Cheers,
- Alex
--
UNSUBSCRIBE: m
Hmmm, it still doesn't work quite well, it chokes on negative
numbers, no idea how to fix that. :(
-José
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
On Fri, 27 Jan 2012 12:55:29 +0100
Alexander Burger wrote:
> Hi José,
>
> > Looks like the example JSON functions choke on empty objects. I
> > made a
>
> Oops. Right.
>
>
> > If it's OK I'll edit the task page, buggy code is ugly code!
>
> Indeed. Please do so. Many thanks!
Done!
>
> Che
Hi José,
> Looks like the example JSON functions choke on empty objects. I made a
Oops. Right.
> If it's OK I'll edit the task page, buggy code is ugly code!
Indeed. Please do so. Many thanks!
Cheers,
- Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Looks like the example JSON functions choke on empty objects. I made a
quick and dirty fix, but I'm not sure if I introduced extra bugs.
Diff follows:
##
--- json.orig.l 2012-01-27 07:34:25.0 -0300
+++ json.l 2012-01-
