scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed silly typo in banana.scm; not actually a bug, just a silly typo

This commit is contained in:
Taylor R. Campbell 2003-04-03 20:12:56 +00:00
parent 49fa6ec239
commit d73f1b8c65
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
s48/banana/banana.scm
View File

@ -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))