[ sisc-Bugs-724422 ] (buffer [values] ...) broken

Bugs item #724422, was opened at 2003-04-19 17:11
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=724422&group_id=23735

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: (buffer [values] ...) broken

Initial Comment:
(buffer #x01 #x02 #x03) -> a buffer containing #x01 #x02 #x02.

The second byte is repeated for the entire length of the buffer.  The 
bug is in buffer.scm:

(define (buffer . args)
  (let ((nb (make-buffer (length args))))
    (do ((i 0 (+ i 1))
         (a args (cdr args)))  ; !!! should be (a args (cdr a)))
        ((= i (buffer-length nb)) nb)
      (buffer-set! nb i (car a)))))

-Dino Dai Zovi
e-mail: [email protected]

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=724422&group_id=23735


-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf