diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-05 11:30:09 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-05 11:32:50 +0100 |
commit | f39448c5a3804f823e367d97cd5e862b016cb8aa (patch) | |
tree | 6994d6aef8e6a1d24eb066e98b3a7b58ba903df2 /libguile/modules.c | |
parent | 1be8532fdb7715451b939571f9a147635df9cd65 (diff) | |
download | guile-f39448c5a3804f823e367d97cd5e862b016cb8aa.tar.gz |
remove a bunch of needless scm_permanent_object calls
* libguile/array-handle.c:
* libguile/bytevectors.c:
* libguile/deprecated.c:
* libguile/eval.c:
* libguile/feature.c:
* libguile/filesys.c:
* libguile/gc.c:
* libguile/gdbint.c:
* libguile/goops.c:
* libguile/instructions.c:
* libguile/load.c:
* libguile/modules.c:
* libguile/numbers.c:
* libguile/options.c:
* libguile/ports.c:
* libguile/scmsigs.c:
* libguile/srcprop.c:
* libguile/srfi-4.c:
* libguile/stacks.c:
* libguile/threads.c:
* libguile/vm.c: Remove calls to scm_permanent_object, as they are no
longer needed with the BDW GC.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index c48c2e8a0..58c524877 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -862,8 +862,7 @@ SCM_SYMBOL (scm_sym_system_module, "system-module"); void scm_modules_prehistory () { - scm_pre_modules_obarray - = scm_permanent_object (scm_c_make_hash_table (1533)); + scm_pre_modules_obarray = scm_c_make_hash_table (1533); } void @@ -875,24 +874,22 @@ scm_init_modules () scm_tc16_eval_closure = scm_make_smob_type ("eval-closure", 0); scm_set_smob_apply (scm_tc16_eval_closure, scm_eval_closure_lookup, 2, 0, 0); - the_module = scm_permanent_object (scm_make_fluid ()); + the_module = scm_make_fluid (); } static void scm_post_boot_init_modules () { -#define PERM(x) scm_permanent_object(x) - SCM module_type = SCM_VARIABLE_REF (scm_c_lookup ("module-type")); scm_module_tag = (SCM_CELL_WORD_1 (module_type) + scm_tc3_struct); - resolve_module_var = PERM (scm_c_lookup ("resolve-module")); - process_define_module_var = PERM (scm_c_lookup ("process-define-module")); - process_use_modules_var = PERM (scm_c_lookup ("process-use-modules")); - module_export_x_var = PERM (scm_c_lookup ("module-export!")); - the_root_module_var = PERM (scm_c_lookup ("the-root-module")); - default_duplicate_binding_procedures_var = - PERM (scm_c_lookup ("default-duplicate-binding-procedures")); + resolve_module_var = scm_c_lookup ("resolve-module"); + process_define_module_var = scm_c_lookup ("process-define-module"); + process_use_modules_var = scm_c_lookup ("process-use-modules"); + module_export_x_var = scm_c_lookup ("module-export!"); + the_root_module_var = scm_c_lookup ("the-root-module"); + default_duplicate_binding_procedures_var = + scm_c_lookup ("default-duplicate-binding-procedures"); scm_module_system_booted_p = 1; } |