From d73f1b8c652fa800fc9cb8175151ad5f6a54afec Mon Sep 17 00:00:00 2001 From: "Taylor R. Campbell" Date: Thu, 3 Apr 2003 20:12:56 +0000 Subject: [PATCH] fixed silly typo in banana.scm; not actually a bug, just a silly typo --- s48/banana/banana.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/s48/banana/banana.scm b/s48/banana/banana.scm index 170786f..9e8deaf 100644 --- a/s48/banana/banana.scm +++ b/s48/banana/banana.scm @@ -43,7 +43,7 @@ (f (string-ref s i)))))) ;; Used in NONE-ENCODER/LIST. -(define (byte-vector-concatentate bvectors) +(define (byte-vector-concatenate bvectors) (let* ((len (fold (lambda (bv counter) (+ (byte-vector-length bv) counter)) 0 bvectors)) @@ -61,12 +61,12 @@ new to (byte-vector-ref bv from)) (loop2 (+ to 1) (+ from 1)))))))))) -;; Variant of BYTE-VECTOR-CONCATENTATE. +;; Variant of BYTE-VECTOR-CONCATENATE. (define (byte-vector-append . vecs) (if (null? vecs) - ;; No need to even bother calling BYTE-VECTOR-CONCATENTATE. + ;; No need to even bother calling BYTE-VECTOR-CONCATENATE. (make-byte-vector 0 0) - (byte-vector-concatentate vecs))) + (byte-vector-concatenate vecs))) ;; Maybe these and the two above should be done using the ;; SEQUENCES structures that also come with Sunterlib. @@ -225,7 +225,7 @@ (lambda (lst) (if (null? lst) (byte-vector 0 none-etb/list) - (byte-vector-concatentate + (byte-vector-concatenate (append (list (posint->byte-vector (length lst))) (list none-etb-v/list) (map (lambda (x) (encode x profile/none))