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/vm.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/vm.c')
-rw-r--r-- | libguile/vm.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 37f74e582..0e511f608 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -212,7 +212,7 @@ vm_make_boot_program (long nargs) { int i; for (i = 0; i < NUM_BOOT_PROGS; i++) - programs[i] = scm_permanent_object (really_make_boot_program (i)); + programs[i] = really_make_boot_program (i); } if (SCM_LIKELY (nargs < NUM_BOOT_PROGS)) @@ -685,9 +685,9 @@ scm_bootstrap_vm (void) scm_c_make_gsubr ("load-compiled/vm", 1, 0, 0, scm_load_compiled_with_vm)); - sym_vm_run = scm_permanent_object (scm_from_locale_symbol ("vm-run")); - sym_vm_error = scm_permanent_object (scm_from_locale_symbol ("vm-error")); - sym_debug = scm_permanent_object (scm_from_locale_symbol ("debug")); + sym_vm_run = scm_from_locale_symbol ("vm-run"); + sym_vm_error = scm_from_locale_symbol ("vm-error"); + sym_debug = scm_from_locale_symbol ("debug"); scm_c_register_extension ("libguile", "scm_init_vm", (scm_t_extension_init_func)scm_init_vm, NULL); |