~arnebab/wispserve commit

1 files changed, 2 insertions(+), 2 deletions(-)

M wispserve/serve.w

M wispserve/serve.w +2 -2

@@ 227,13 227,13 @@ define : download-file url
                     ;; pretty-print size
                     ;; pretty-print resp
                     ;; pretty-print headers
-                    pretty-print content-range
+                    ;; pretty-print content-range
                     ;; pretty-print : if (string? body) body : bytevector->string body "ISO-8859-1"
                     cond
                       : not content-range
                         . body ;; no range-support, so we got the full file by definition
                       : not : equal? 'bytes : car : cdr content-range
-                        write : cdr content-range
+                        ;; write : cdr content-range
                         error "unsupported content-range: content-range header must start with bytes, but it is:"
                           cdr content-range
                       else