summaryrefslogtreecommitdiff
path: root/libguile/fports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/fports.c')
-rw-r--r--libguile/fports.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/fports.c b/libguile/fports.c
index 3077318e5..af7116b80 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -214,7 +214,7 @@ scm_evict_ports (int fd)
fp->fdes = dup (fd);
if (fp->fdes == -1)
scm_syserror ("scm_evict_ports");
- scm_set_port_revealed_x (port, SCM_MAKINUM (0));
+ scm_set_port_revealed_x (port, SCM_I_MAKINUM (0));
}
}
}
@@ -845,9 +845,9 @@ scm_init_fports ()
{
scm_tc16_fport = scm_make_fptob ();
- scm_c_define ("_IOFBF", SCM_MAKINUM (_IOFBF));
- scm_c_define ("_IOLBF", SCM_MAKINUM (_IOLBF));
- scm_c_define ("_IONBF", SCM_MAKINUM (_IONBF));
+ scm_c_define ("_IOFBF", SCM_I_MAKINUM (_IOFBF));
+ scm_c_define ("_IOLBF", SCM_I_MAKINUM (_IOLBF));
+ scm_c_define ("_IONBF", SCM_I_MAKINUM (_IONBF));
#include "libguile/fports.x"
}