diff options
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 1fd6f6350..5500e1084 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -95,8 +95,8 @@ * Indexes into this table are used when generating type * tags for smobjects (if you know a tag you can get an index and conversely). */ -scm_t_ptob_descriptor *scm_ptobs; -long scm_numptob; +scm_t_ptob_descriptor *scm_ptobs = NULL; +long scm_numptob = 0; /* GC marker for a port with stream of SCM type. */ SCM @@ -2266,13 +2266,6 @@ scm_port_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED) return 1; } -void -scm_ports_prehistory () -{ - scm_numptob = 0; - scm_ptobs = NULL; -} - /* Void ports. */ |