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")