diff options
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 6 |
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)); |