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/deprecated.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/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 9364a6939..6025c7baf 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -249,15 +249,13 @@ static SCM try_module_autoload_var; static void init_module_stuff () { -#define PERM(x) scm_permanent_object(x) - if (module_prefix == SCM_BOOL_F) { - module_prefix = PERM (scm_list_2 (scm_sym_app, scm_sym_modules)); - make_modules_in_var = PERM (scm_c_lookup ("make-modules-in")); + module_prefix = scm_list_2 (scm_sym_app, scm_sym_modules); + make_modules_in_var = scm_c_lookup ("make-modules-in"); beautify_user_module_x_var = - PERM (scm_c_lookup ("beautify-user-module!")); - try_module_autoload_var = PERM (scm_c_lookup ("try-module-autoload")); + scm_c_lookup ("beautify-user-module!"); + try_module_autoload_var = scm_c_lookup ("try-module-autoload"); } } |