summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index c2a9406e6..01324bda7 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -302,8 +302,8 @@ scm_remove_from_port_table (port)
#ifdef DEBUG
/* Undocumented functions for debugging. */
/* Return the number of ports in the table. */
-static char s_pt_size[] = "pt-size";
+SCM_PROC(s_pt_size, "pt-size", 0, 0, 0, scm_pt_size);
SCM
scm_pt_size ()
{
@@ -311,8 +311,7 @@ scm_pt_size ()
}
/* Return the ith member of the port table. */
-static char s_pt_member[] = "pt-member";
-
+SCM_PROC(s_pt_member, "pt-member", 1, 0, 0, scm_pt_member);
SCM
scm_pt_member (member)
SCM member;