diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-12-15 15:54:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-12-15 15:54:29 +0100 |
| commit | 74baf333bf591cf3c91447d912d200783472d913 (patch) | |
| tree | 3763030272b90b05d32f618de0ba3b91a74db815 | |
| parent | a784c3077e7cdae5d8492aa540b86b8d32c9a696 (diff) | |
| download | guix-74baf333bf591cf3c91447d912d200783472d913.tar guix-74baf333bf591cf3c91447d912d200783472d913.tar.gz | |
utils: Make the buffer size of `dump-port' a parameter.
* guix/build/utils.scm (dump-port): Make `buffer-size' a keyword
parameter.
| -rw-r--r-- | guix/build/utils.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 8ae190f656..8f0eb66d39 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -364,9 +364,9 @@ all subject to the substitutions." ;;; Patching shebangs---e.g., /bin/sh -> /nix/store/xyz...-bash/bin/sh. ;;; -(define (dump-port in out) - "Read as much data as possible from IN and write it to OUT." - (define buffer-size 4096) +(define* (dump-port in out #:key (buffer-size 16384)) + "Read as much data as possible from IN and write it to OUT, using +chunks of BUFFER-SIZE bytes." (define buffer (make-bytevector buffer-size)) |