summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/vports.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vports.c b/libguile/vports.c
index 53f37ac91..be1fa2c52 100644
--- a/libguile/vports.c
+++ b/libguile/vports.c
@@ -147,7 +147,7 @@ sf_input_waiting (SCM port)
{
SCM f = SCM_VELTS (p)[5];
if (SCM_NFALSEP (f))
- return SCM_INUM (scm_call_0 (f));
+ return scm_num2int (scm_call_0 (f), SCM_ARGn, NULL);
}
/* Default is such that char-ready? for soft ports returns #t, as it
did before this extension was implemented. */