how can you read all of the json into a varialbe? added by akkad on Tue Mar 14 20:25:58 2017

(use z3)
(use medea)

(define (parse-json-gz-file file)
  (let ((gzip-stream (z3:open-compressed-input-file file)))
	(read-json gzip-stream)))

(parse-json-gz-file "/home/akkad/test.json.gz")


(define (gunzip file file-new)
  (let ((gzip-stream (z3:open-compressed-input-file file)))
    (call-with-output-file file-new
      (lambda (x)
        (copy-port gzip-stream x)))))

;;(gunzip "/home/akkad/foo.gz" "/home/akkad/foo")