Parent Directory | Revision Log | 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. */ |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |