mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

remove scm_ports_prehistory

Browse source 
* libguile/ports.h:
* libguile/ports.c (scm_ports_prehistory): Remove this function. Just
  initialize global vars to NULL/0 instead of needing a prehistory
  function.
This commit is contained in:
Andy Wingo 2009-12-05 11:10:11 +01:00
parent 45cf242872
commit dd3a26f3da
3 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/ports.c
View file

@ -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. */