From: Gary Houston <ghouston@arglist.com>
Date: Sat, 30 Sep 2000 15:53:36 +0000 (+0000)
Subject: 	* posix.scm (setgrent): pass #t, not #f.  thanks to
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/deaecea77d61dae047d02ee76eb7b70e071439d1

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

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index c727ec59b..bbbc9af7c 100644
--- 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 9698a0b8a..9d76a79d0 100644
--- 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))