~ chicken-core (chicken-5) fe13bd846053bf33e43234e0e3a9c86d761eda8d

commit fe13bd846053bf33e43234e0e3a9c86d761eda8d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 21 15:19:45 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 21 15:19:45 2010 +0200

    fix for my carelessness by Jeronimo Pellegrini

diff --git a/manual/Acknowledgements b/manual/Acknowledgements
index 362636d6..2820537b 100644
--- a/manual/Acknowledgements
+++ b/manual/Acknowledgements
@@ -20,7 +20,7 @@ Ghuloum, Joey Gibson, Stephen C. Gilardi, Mario Domenech Goulart,
 Joshua Griffith, Johannes Groedem, Damian Gryski, Andreas Gustafsson,
 Sven Hartrumpf, Jun-ichiro itojun Hagino, Ahdi Hargo, Matthias Heiler,
 Karl M. Hegbloom, William P. Heinemann, Bill Hoffman, Bruce Hoult,
-Hans H&uuml;bner, Markus Huelsmann, Goetz Isenmann, Paulo Jabardo,
+Hans Huebner, Markus Huelsmann, Goetz Isenmann, Paulo Jabardo,
 Wietse Jacobs, David Janssens, Christian Jaeger, Matt Jones, Dale
 Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller, Brad Kind, Ron
 Kneusel, Matthias Koeppe, Krysztof Kowalczyk, Andre Kuehne, Todd
diff --git a/srfi-4.scm b/srfi-4.scm
index 4d73fd0a..39a57c53 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -131,7 +131,7 @@ EOF
   (##sys#check-structure x 'u32vector 'u32vector-set!)
   (let ((len (##core#inline "C_u_i_32vector_length" x)))
     (##sys#check-integer y 'u32vector-set!)
-    (cond ((negative? y 0)
+    (cond ((negative? y)
 	   (##sys#error 'u32vector-set! "argument may not be negative" y) )
 	  ((not (##sys#fits-in-unsigned-int? y))
 	   (##sys#error 'u32vector-set! "argument exceeds integer range" y) ) )