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

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

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

revision 1.58 by ossau, Wed Oct 9 19:07:23 2002 UTC revision 1.59 by ossau, Wed Oct 9 19:34:55 2002 UTC
# Line 147  sf_input_waiting (SCM port) Line 147  sf_input_waiting (SCM port)
147      {      {
148        SCM f = SCM_VELTS (p)[5];        SCM f = SCM_VELTS (p)[5];
149        if (SCM_NFALSEP (f))        if (SCM_NFALSEP (f))
150          return SCM_INUM (scm_call_0 (f));          return scm_num2int (scm_call_0 (f), SCM_ARGn, NULL);
151      }      }
152    /* Default is such that char-ready? for soft ports returns #t, as it    /* Default is such that char-ready? for soft ports returns #t, as it
153       did before this extension was implemented. */       did before this extension was implemented. */

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

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