diff options
-rw-r--r-- | henrietta-cache.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm index fae2499..0c7f266 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -1,4 +1,8 @@ -(use utils posix http-client matchable uri-common srfi-1 chicken-syntax) +(module henrietta-cache () + +(import chicken scheme) + +(use utils files extras posix data-structures http-client matchable uri-common srfi-1) (define (usage code) (print #<#EOF @@ -60,7 +64,7 @@ EOF (define (copy-port in out #!optional limit) (let ((bufsize 1024)) (let loop ((data (read-string (min (or limit bufsize) bufsize) in))) - (unless (string-null? data) + (unless (zero? (string-length data)) (display data out) (when limit (set! limit (- limit (string-length data)))) (loop (read-string (min (or limit bufsize) bufsize) in)))))) @@ -361,3 +365,4 @@ EOF (else (loop (cdr args)))))))) (main (command-line-arguments)) +) |