summaryrefslogtreecommitdiff
path: root/libguile/fports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/fports.c')
-rw-r--r--libguile/fports.c2
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);