* posix.scm (setgrent): pass #t, not #f. thanks to

	Jacques A. Vidrine.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index c727ec5..bbbc9af 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-30  Gary Houston  <ghouston@arglist.com>
+
+       * posix.scm (setgrent): pass #t, not #f.  thanks to
+       Jacques A. Vidrine.
+
 2000-09-29  Neil Jerram  <neil@ossau.uklinux.net>
 
        * documentation.scm (find-documentation-in-file): Modified

diff --git a/ice-9/posix.scm b/ice-9/posix.scm
index 9698a0b..9d76a79 100644 (file)
--- a/ice-9/posix.scm
+++ b/ice-9/posix.scm
@@ -63,7 +63,7 @@
 (define (getpwuid uid) (getpw uid))
 
 (define (getgrent) (getgr))
-(define (setgrent) (setgr #f))
+(define (setgrent) (setgr #t))
 (define (endgrent) (setgr))
 
 (define (getgrnam name) (getgr name))