summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index 3badd8349..0c2536945 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -151,8 +151,10 @@ scm_make_port_type (char *name,
}
SCM_ALLOW_INTS;
if (!tmp)
- ptoberr:scm_wta (SCM_MAKINUM ((long) scm_numptob),
- (char *) SCM_NALLOC, "scm_make_port_type");
+ {
+ ptoberr:
+ scm_memory_error ("scm_make_port_type");
+ }
/* Make a class object if Goops is present */
if (scm_port_class)
scm_make_port_classes (scm_numptob - 1, SCM_PTOBNAME (scm_numptob - 1));