/[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.100.2.2 by mvo, Sun Aug 26 21:49:32 2001 UTC revision 1.100.2.3 by ossau, Tue Mar 12 20:58:23 2002 UTC
# Line 717  fport_write (SCM port, const void *data, Line 717  fport_write (SCM port, const void *data,
717    
718  /* becomes 1 when process is exiting: normal exception handling won't  /* becomes 1 when process is exiting: normal exception handling won't
719     work by this time.  */     work by this time.  */
720  extern int terminating;  extern int scm_i_terminating;
721    
722  static void  static void
723  fport_flush (SCM port)  fport_flush (SCM port)
# Line 749  fport_flush (SCM port) Line 749  fport_flush (SCM port)
749                  }                  }
750                pt->write_pos = pt->write_buf + remaining;                pt->write_pos = pt->write_buf + remaining;
751              }              }
752            if (terminating)            if (scm_i_terminating)
753              {              {
754                const char *msg = "Error: could not flush file-descriptor ";                const char *msg = "Error: could not flush file-descriptor ";
755                char buf[11];                char buf[11];

Legend:
Removed from v.1.100.2.2  
changed lines
  Added in v.1.100.2.3

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