summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-05 11:30:09 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-05 11:32:50 +0100
commitf39448c5a3804f823e367d97cd5e862b016cb8aa (patch)
tree6994d6aef8e6a1d24eb066e98b3a7b58ba903df2 /libguile/vm.c
parent1be8532fdb7715451b939571f9a147635df9cd65 (diff)
downloadguile-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.c8
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);