summaryrefslogtreecommitdiff
path: root/libguile/fports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/fports.c')
-rw-r--r--libguile/fports.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/fports.c b/libguile/fports.c
index a085e9cba..6df715592 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -178,7 +178,7 @@ The value used to indicate the "close on exec" flag with @code{F_GETFL} or
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_OPFPORT(1,port);
- SCM_VALIDATE_INT_COPY(2,mode,cmode);
+ SCM_VALIDATE_INUM_COPY(2,mode,cmode);
if (cmode != _IONBF && cmode != _IOFBF && cmode != _IOLBF)
scm_out_of_range (FUNC_NAME, mode);
@@ -201,7 +201,7 @@ The value used to indicate the "close on exec" flag with @code{F_GETFL} or
}
else
{
- SCM_VALIDATE_INT_COPY(3,size,csize);
+ SCM_VALIDATE_INUM_COPY(3,size,csize);
if (csize < 0 || (cmode == _IONBF && csize > 0))
scm_out_of_range (FUNC_NAME, size);
}