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)))))) (f (string-ref s i))))))
;; Used in NONE-ENCODER/LIST. ;; Used in NONE-ENCODER/LIST.
(define (byte-vector-concatentate bvectors) (define (byte-vector-concatenate bvectors)
(let* ((len (fold (lambda (bv counter) (let* ((len (fold (lambda (bv counter)
(+ (byte-vector-length bv) counter)) (+ (byte-vector-length bv) counter))
0 bvectors)) 0 bvectors))
@ -61,12 +61,12 @@
new to (byte-vector-ref bv from)) new to (byte-vector-ref bv from))
(loop2 (+ to 1) (+ from 1)))))))))) (loop2 (+ to 1) (+ from 1))))))))))
;; Variant of BYTE-VECTOR-CONCATENTATE. ;; Variant of BYTE-VECTOR-CONCATENATE.
(define (byte-vector-append . vecs) (define (byte-vector-append . vecs)
(if (null? 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) (make-byte-vector 0 0)
(byte-vector-concatentate vecs))) (byte-vector-concatenate vecs)))
;; Maybe these and the two above should be done using the ;; Maybe these and the two above should be done using the
;; SEQUENCES structures that also come with Sunterlib. ;; SEQUENCES structures that also come with Sunterlib.
@ -225,7 +225,7 @@
(lambda (lst) (lambda (lst)
(if (null? lst) (if (null? lst)
(byte-vector 0 none-etb/list) (byte-vector 0 none-etb/list)
(byte-vector-concatentate (byte-vector-concatenate
(append (list (posint->byte-vector (length lst))) (append (list (posint->byte-vector (length lst)))
(list none-etb-v/list) (list none-etb-v/list)
(map (lambda (x) (encode x profile/none)) (map (lambda (x) (encode x profile/none))