From a5d724dda4cfec2ef9476f3fd5008dc8ac99d009 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 25 Jul 2013 10:11:05 -0600
Subject: [PATCH] file/tar: limit pipe size between tar and gzip

Otherwise, tar is likely to get ahead of gzip and use much
more memory.
---
 racket/collects/file/tar.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/file/tar.rkt b/racket/collects/file/tar.rkt
index ff41e12e51..deddf52067 100644
--- a/racket/collects/file/tar.rkt
+++ b/racket/collects/file/tar.rkt
@@ -155,7 +155,7 @@
   (when (null? paths) (error 'tar-gzip "no paths specified"))
   (with-output-to-file tgz-file
     (lambda ()
-      (let-values ([(i o) (make-pipe)])
+      (let-values ([(i o) (make-pipe (* 1024 1024 32))])
         (thread (lambda ()
                   (tar->output (pathlist-closure paths #:follow-links? #f) o
                                #:path-prefix prefix)