diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-24 22:15:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-24 22:15:29 +0100 |
| commit | 01ac19dca4318d577cf3bef53cfe6af590f0e5f8 (patch) | |
| tree | 413b19db595ab5138a74a635419bd82aac5d3c24 /.dir-locals.el | |
| parent | 80dea563a3dad98bda60385188509ca79a3651f8 (diff) | |
| download | patches-01ac19dca4318d577cf3bef53cfe6af590f0e5f8.tar patches-01ac19dca4318d577cf3bef53cfe6af590f0e5f8.tar.gz | |
utils: Add 'call-with-decompressed-port' and 'call-with-compressed-output-port'.
* guix/utils.scm (call-with-decompressed-port,
call-with-compressed-output-port): New procedures.
* tests/utils.scm ("compressed-output-port + decompressed-port"):
Rewrite to use them.
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 03d9a4ec8d..22ade9f8a5 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -22,6 +22,8 @@ (eval . (put 'with-error-handling 'scheme-indent-function 0)) (eval . (put 'with-mutex 'scheme-indent-function 1)) (eval . (put 'with-atomic-file-output 'scheme-indent-function 1)) + (eval . (put 'call-with-compressed-output-port 'scheme-indent-function 2)) + (eval . (put 'call-with-decompressed-port 'scheme-indent-function 2)) (eval . (put 'syntax-parameterize 'scheme-indent-function 1)) (eval . (put 'with-monad 'scheme-indent-function 1)) |