gunzip? added by akkad on Tue Mar 14 02:19:33 2017
(use z3) (define (gunzip file file-new) (let ((gzip-stream (z3:open-compressed-input-file file))) (call-with-output-file file-new (copy-port gzip-stream file-new))))
(use z3) (define (gunzip file file-new) (let ((gzip-stream (z3:open-compressed-input-file file))) (call-with-output-file file-new (copy-port gzip-stream file-new))))