convert a list of lists to json

[hinkelman]

With a simple list, scm->json produces the following result.

> (define a '(1 2 3))
> (scm->json a)
[1, 2, 3]

However, a list of lists produces the following result.

> (define b '('(1 2 3) '(4 5 6)))
> (scm->json b)
{"quote" : {"1" : [2, 3]},"quote" : {"4" : [5, 6]}}

Is that the expected behavior? Because I was expecting this.

[[1, 2, 3], [4, 5, 6]]

Thanks!

[hinkelman]

I realized that I was incorrectly creating a list of lists, but the general problem still remains.

> (define b '((1 2 3) (4 5 6)))
> (scm->json b)
{"1" : [2, 3],"4" : [5, 6]}