summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-05 10:07:07 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-05 10:07:07 +0100
commitc99de5aa275b15af207c0dba9717d6b865684fc4 (patch)
treed1c78809bf4971a152fd3cd46bf77cf29a2f5621 /libguile/init.c
parent314b87163eac1358923cb84e7f2c87d06aa03756 (diff)
downloadguile-c99de5aa275b15af207c0dba9717d6b865684fc4.tar.gz
hash tables have a tc7
* libguile/tags.h (scm_tc7_hashtable): Allocate a tc7 for hashtables. * libguile/hashtab.h: Adjust macros accordingly. (scm_i_hashtable_print, scm_i_hashtable_equal_p): New internal functions. (scm_hashtab_prehistory): Remove, no more need for this. * libguile/hashtab.c (scm_hash_fn_remove_x): Fix a longstanding bug. (make_hash_table): Adapt to the new hash table representation. * libguile/eq.c (scm_equal_p) * libguile/evalext.c (scm_self_evaluating_p) * libguile/print.c (iprin1) * libguile/gc.c (scm_i_tag_name): Add some tc7_hashtab cases. * libguile/init.c: Remove unused environments init functions. Remove call to hashtab_prehistory. * libguile/goops.h (scm_class_hashtable) * libguile/goops.c (scm_class_of, create_standard_classes): Have to make a class for hash tables manually, because they aren't smobs any more.
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c11
1 files changed, 0 insertions, 11 deletions
diff --git a/libguile/init.c b/libguile/init.c
index 2180e456f..bbe88e88a 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -49,9 +49,6 @@
#include "libguile/deprecation.h"
#include "libguile/dynl.h"
#include "libguile/dynwind.h"
-#if 0
-#include "libguile/environments.h"
-#endif
#include "libguile/eq.h"
#include "libguile/error.h"
#include "libguile/eval.h"
@@ -443,8 +440,6 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_smob_prehistory ();
scm_fluids_prehistory ();
scm_weaks_prehistory ();
- scm_hashtab_prehistory (); /* requires storage_prehistory, and
- weaks_prehistory */
#ifdef GUILE_DEBUG_MALLOC
scm_debug_malloc_prehistory ();
#endif
@@ -455,9 +450,6 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_struct_prehistory (); /* requires storage */
scm_symbols_prehistory (); /* requires storage */
-#if 0
- scm_environments_prehistory (); /* requires storage */
-#endif
scm_modules_prehistory (); /* requires storage and hash tables */
scm_init_variable (); /* all bindings need variables */
scm_init_continuations ();
@@ -466,9 +458,6 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_gsubr ();
scm_init_thread_procs (); /* requires gsubrs */
scm_init_procprop ();
-#if 0
- scm_init_environments ();
-#endif
scm_init_alist ();
scm_init_arbiters ();
scm_init_async ();