~ chicken-core (chicken-5) e9791253b6fcda46370e937e500050cb01887132

commit e9791253b6fcda46370e937e500050cb01887132
Author:     felix <felix@y.(none)>
AuthorDate: Sat Jul 24 12:11:55 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sat Jul 24 12:11:55 2010 +0200

    updated manifest (modules/macros manual pages, thanks to Tayler Venable and mario)

diff --git a/distribution/manifest b/distribution/manifest
index 40dfcb27..c0687166 100644
--- a/distribution/manifest
+++ b/distribution/manifest
@@ -271,7 +271,8 @@ manual/Foreign type specifiers
 manual/Getting started
 manual/Interface to external functions and variables
 manual/Locations
-manual/Modules and macros
+manual/Modules
+manual/macros
 manual/Non-standard macros and special forms
 manual/Non-standard read syntax
 manual/Other support procedures
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) ) )