suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use make-bytes for buffer

Browse Source 
svn: r1670
This commit is contained in:
Eli Barzilay 2005-12-23 06:25:06 +00:00
parent 388b9deff6
commit eceaabff9e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/swindle/html.ss
View File

@ -156,7 +156,7 @@
(define* (input->output) (define* (input->output)
;; new buffer on every call in case of threading ;; 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 loop ()
(let ([l (read-bytes-avail! buffer)]) (let ([l (read-bytes-avail! buffer)])
(unless (eof-object? l) (unless (eof-object? l)