diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2002-10-09 19:34:55 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-10-09 19:34:55 +0000 |
| commit | 9768e0a96e8513dd8a9b59d25e43bbcb2909a5a2 (patch) | |
| tree | 509c51addf66c534728503b760b68fb02cf0dcb3 /libguile/vports.c | |
| parent | 34010f56945e872f003a3702df1c347320eeeb4e (diff) | |
| download | guile-9768e0a96e8513dd8a9b59d25e43bbcb2909a5a2.tar.gz | |
Use scm_num2int rather than SCM_INUM in soft port extension.
Diffstat (limited to 'libguile/vports.c')
| -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. */ |