diff options
Diffstat (limited to 'libguile/fports.c')
-rw-r--r-- | libguile/fports.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/fports.c b/libguile/fports.c index 882405cec..2fe0bee0c 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -436,7 +436,7 @@ scm_fdes_to_port (int fdes, char *mode, SCM name) SCM_MISC_ERROR ("requested file mode not available on fdes", SCM_EOL); } - port = scm_alloc_cell (scm_tc16_fport, 0); + port = scm_cell (scm_tc16_fport, 0); SCM_DEFER_INTS; pt = scm_add_to_port_table (port); SCM_SETPTAB_ENTRY (port, pt); |