From 9768e0a96e8513dd8a9b59d25e43bbcb2909a5a2 Mon Sep 17 00:00:00 2001
From: Neil Jerram <neil@ossau.uklinux.net>
Date: Wed, 9 Oct 2002 19:34:55 +0000
Subject: [PATCH] Use scm_num2int rather than SCM_INUM in soft port extension.

---
 libguile/vports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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