From eceaabff9eb6ebce4753c19ba37e7b95d5de7ba7 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 23 Dec 2005 06:25:06 +0000
Subject: [PATCH] use make-bytes for buffer

svn: r1670
---
 collects/swindle/html.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/swindle/html.ss b/collects/swindle/html.ss
index d138de7ee8..49f9b9c85a 100644
--- a/collects/swindle/html.ss
+++ b/collects/swindle/html.ss
@@ -156,7 +156,7 @@
 
 (define* (input->output)
   ;; new buffer on every call in case of threading
-  (let* ([bufsize 4096] [buffer (make-string bufsize)])
+  (let* ([bufsize 4096] [buffer (make-bytes bufsize)])
     (let loop ()
       (let ([l (read-bytes-avail! buffer)])
         (unless (eof-object? l)