[Chicken-users] Medea Egg: nested lists/pairs

[Karsten Gebbert]

Hi,

I'm using the medea egg, installed via chicken-install, and I'm 
encountering a problem unparsing lists that contain pairs with more 
list/pairs. To my understanding of the source code, write-json should 
just call itself on the cdr of the pair, but I get  an error:

#;2> #;2> (write-json '((one . 1) (two . '((three . 3) (four . 4)))))

Error: (car) bad argument type: quote

    Call history:

    <syntax>      (write-json (quote ((one . 1) (two quote ((three . 3) 
(four . 4))))))
    <syntax>      (quote ((one . 1) (two quote ((three . 3) (four . 4)))))
    <syntax>      (##core#quote ((one . 1) (two quote ((three . 3) 
(four . 4)))))
    <eval>      (write-json (quote ((one . 1) (two quote ((three . 3) 
(four . 4))))))

Do I need to provide my own unparser in order to be able to create 
nested objects or is there a different approach I have overlooked?

Best,

Karsten