mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Use scm_num2int rather than SCM_INUM in soft port extension.

Browse source
This commit is contained in:
Neil Jerram 2002-10-09 19:34:55 +00:00
parent 34010f5694
commit 9768e0a96e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vports.c
View file

@ -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. */