diff options
-rw-r--r-- | libguile/vports.c | 2 |
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. */ |