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

Bug is fixed in CVS.

	Scott

On Sat, Apr 19, 2003 at 05:11:47PM -0700, SourceForge.net wrote:
> 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
> _______________________________________________
> SISC-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/sisc-devel
> 

--

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+og1er9IW4v3mHtQRAk6xAJ0dKSCg6NG6FXrrrHgGxDv2C/0DWgCgg1pF
Jf4rdR4jhhwciRBNAPnyiD8=
=zFIU
-----END PGP SIGNATURE-----