tiny s-expression -> json converter

sjson.scm

(use srfi-13 ports)
(define (s->json s)
  (cond
    ((and (pair? s) (string? (car s)))
      (sprintf "~a:~a"
        (s->json (car s))
        (s->json (cdr s))))
    ((pair? s)
      (sprintf "{~a}"
        (string-join (map s->json s) ",")))
    ((vector? s)
      (sprintf "[~a]"
         (string-join (map s->json (vector->list s)) ",")))
    ((string? s)
      (with-output-to-string (cut write s)))
    ((number? s)
      (number->string s))
    (else (error s->json s))))

test.scm

(print
  (s->json
    `(("name"
       ("foo" . #(1 2 3))
       ("bar" . "hige"))
      ("data" . "qwerty"))))
; ==> {"name":{"foo":[1,2,3],"bar":"hige"},"data":"qwerty"}