From 1bc986acb65788975c0640b4adb5d4b556331da8 Mon Sep 17 00:00:00 2001 From: John Clements Date: Mon, 31 Jul 2006 14:48:39 +0000 Subject: [PATCH] bug fix svn: r3908 original commit: ecd96a68ae55953e978d98bb0d6128ea286c7611 --- collects/net/head-unit.ss | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/collects/net/head-unit.ss b/collects/net/head-unit.ss index 53b498c..5adb90e 100644 --- a/collects/net/head-unit.ss +++ b/collects/net/head-unit.ss @@ -171,14 +171,11 @@ (string-append field header)))) - ;; NB: I stopped adding "bytes" versions of functions here; anybody want to finish? - ;; JBC, 2006-07-31 - (define (append-headers a b) (if (bytes? a) (let ([alen (bytes-length a)]) (if (> alen 1) - (string-append (substring a 0 (- alen 2)) b) + (bytes-append (subbytes a 0 (- alen 2)) b) (error 'append-headers "first argument is not a header: ~a" a))) ;; otherwise, a & b should be strings: (let ([alen (string-length a)])