/[guile]/guile/guile-core/libguile/fports.c
ViewVC logotype

Diff of /guile/guile-core/libguile/fports.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.110 by dirk, Fri Mar 1 00:19:20 2002 UTC revision 1.111 by ossau, Tue Mar 12 21:12:25 2002 UTC
# Line 727  fport_write (SCM port, const void *data, Line 727  fport_write (SCM port, const void *data,
727    
728  /* becomes 1 when process is exiting: normal exception handling won't  /* becomes 1 when process is exiting: normal exception handling won't
729     work by this time.  */     work by this time.  */
730  extern int terminating;  extern int scm_i_terminating;
731    
732  static void  static void
733  fport_flush (SCM port)  fport_flush (SCM port)
# Line 759  fport_flush (SCM port) Line 759  fport_flush (SCM port)
759                  }                  }
760                pt->write_pos = pt->write_buf + remaining;                pt->write_pos = pt->write_buf + remaining;
761              }              }
762            if (terminating)            if (scm_i_terminating)
763              {              {
764                const char *msg = "Error: could not flush file-descriptor ";                const char *msg = "Error: could not flush file-descriptor ";
765                char buf[11];                char buf[11];

Legend:
Removed from v.1.110  
changed lines
  Added in v.1.111

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26