guile/guile-core/ice-9 ChangeLog posix.scm

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/09/30 08:53:37

Modified files:
        guile-core/ice-9: ChangeLog posix.scm 

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

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.351&r2=1.352
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/posix.scm.diff?r1=1.1&r2=1.2

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.351 
guile/guile-core/ice-9/ChangeLog:1.352
--- guile/guile-core/ice-9/ChangeLog:1.351      Fri Sep 29 13:39:29 2000
+++ guile/guile-core/ice-9/ChangeLog    Sat Sep 30 08:53:36 2000
@@ -1,3 +1,8 @@
+2000-09-30  Gary Houston  <address@hidden>
+
+       * posix.scm (setgrent): pass #t, not #f.  thanks to
+       Jacques A. Vidrine.
+
 2000-09-29  Neil Jerram  <address@hidden>
 
        * documentation.scm (find-documentation-in-file): Modified
Index: guile/guile-core/ice-9/posix.scm
diff -u guile/guile-core/ice-9/posix.scm:1.1 
guile/guile-core/ice-9/posix.scm:1.2
--- guile/guile-core/ice-9/posix.scm:1.1        Sun Sep 26 09:00:36 1999
+++ guile/guile-core/ice-9/posix.scm    Sat Sep 30 08:53:36 2000
@@ -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))