diff options
| -rw-r--r-- | henrietta-cache.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm index d2b6728..4ef9473 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -26,7 +26,7 @@ EOF (->string (cdr pattern)))) patterns))) -;; We could also use sendfile egg here, once #542 is fixed +;; We could also use sendfile egg here, but do we want to the dependency? (define (copy-port in out #!optional limit) (let ((bufsize 1024)) (let loop ((data (read-string (min (or limit bufsize) bufsize) in))) |