diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-26 22:59:52 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-01-13 22:24:19 +0100 |
| commit | 0d046587107a56467cf2027799ac79ce8c203ce0 (patch) | |
| tree | 87c9916fd5cb18816e20484d848c4f7baed767bc /guix | |
| parent | 0d22fc8d36e4efba9748c94cab7cedbbe2bbb5bf (diff) | |
utils: Remove 'compressed-output-port'.
This procedure was unused except in one test.
* guix/utils.scm (compressed-port): Remove.
* tests/utils.scm (test-compression/decompression): Rewrite to use
'compressed-output-port' instead.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/utils.scm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index 0df46f1062..c321ad9943 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -110,7 +110,6 @@ edit-expression filtered-port - compressed-port decompressed-port call-with-decompressed-port compressed-output-port @@ -225,18 +224,6 @@ a symbol such as 'xz." '())) (_ (error "unsupported compression scheme" compression)))) -(define (compressed-port compression input) - "Return an input port where INPUT is compressed according to COMPRESSION, -a symbol such as 'xz." - (match compression - ((or #f 'none) (values input '())) - ('bzip2 (filtered-port `(,%bzip2 "-c") input)) - ('xz (filtered-port `(,%xz "-c") input)) - ('gzip (filtered-port `(,%gzip "-c") input)) - ('lzip (values (lzip-port 'make-lzip-input-port/compressed input) - '())) - (_ (error "unsupported compression scheme" compression)))) - (define (call-with-decompressed-port compression port proc) "Call PROC with a wrapper around PORT, a file port, that decompresses data read from PORT according to COMPRESSION, a symbol such as 'xz." |