diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-02-12 00:02:11 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-02-12 00:02:11 +0100 |
commit | ac51e74b9533cc3df8fe9656b97a6385a6e71b80 (patch) | |
tree | 418eaa30271aab9f36e4c8562cf016087cfca84a /libguile/init.c | |
parent | feccd2d3100fd2964d4c2df58ab3da7ce4949a66 (diff) | |
download | guile-ac51e74b9533cc3df8fe9656b97a6385a6e71b80.tar.gz |
Use double-cells to store subrs.
* libguile/procs.c (scm_subr_table, scm_subr_table_size,
scm_subr_table_room, subr_table_gc_hint, scm_init_subr_table,
scm_mark_subr_table): Remove.
(scm_c_make_subr): Simply return a double-cell, with the procedure
name and properties stored in a two-element array.
(scm_free_subr_entry): Free the meta-info slot.
* libguile/init.c (scm_i_init_guile): Remove call to
`scm_init_subr_table ()'.
* libguile/procs.h (SCM_SUBR_META_INFO): New macro.
(SCM_SNAME, SCM_SUBR_PROPS): Use it.
(SCM_SUBR_GENERIC, SCM_SET_SUBR_GENERIC, SCM_SET_SUBR_GENERIC_LOC):
Update.
(scm_t_subr_entry, SCM_SUBR_ENTRY, SCM_SUBRNUM, scm_subr_table,
scm_mark_subr_table, scm_init_subr_table): Remove.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/init.c b/libguile/init.c index 522bec901..60c83c5fb 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 2009 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -444,7 +444,6 @@ scm_i_init_guile (SCM_STACKITEM *base) scm_struct_prehistory (); /* requires storage */ scm_symbols_prehistory (); /* requires storage */ - scm_init_subr_table (); #if 0 scm_environments_prehistory (); /* requires storage */ #endif |