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

added Taylor Campbell to COPYING, Banana notice to NEWS

This commit is contained in:
Taylor R. Campbell 2003-03-29 16:14:06 +00:00
parent 2732d18bba
commit 85945cfed1
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
COPYING
View File

@ -1,6 +1,7 @@
Copyright (c) 2003 Anthony Carrico, Martin Gasbichler
Copyright (c) 2003 Eric Knauel, Matthias Neubauer
Copyright (c) 2003 RT Happe
Copyright (c) 2003 Taylor Campbell
All rights reserved.

1
NEWS
View File

@ -1,6 +1,7 @@
version 0.3
* Added DETAILS (autogenerated)
* Fixed installation
* New s48 library: banana
version 0.2 - 2003-02-25
* Added INSTALL, README.admin, README.contrib.

8
s48/banana/banana.scm
View File

@ -97,6 +97,10 @@
;; NONNEGINT->BYTE-VECTOR or something) to byte vectors as
;; specified by the Banana protocol.
;;
;; *FIXME* - Shouldn't this be able to be implemented better than
;; by consing up a list...and then reversing that list...and then
;; converting that list into a byte vector?
;;
;; Tail-recursive, iterative version.
(define (posint->byte-vector int)
(do ((int int (arithmetic-shift int -7))
@ -119,8 +123,8 @@
; (cons (bitwise-and int #x7f)
; (loop (arithmetic-shift int -7)))))))
;; BYTE-VECTOR->POSINT is just like above but the other way
;; around.
;; BYTE-VECTOR->POSINT is just like POSINT->BYTE-VECTOR but the
;; other way around.
(define (byte-vector->posint bv)
(let ((len (byte-vector-length bv)))
(do ((i 0 (+ i 1))