mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

fix embarrassing bug

Browse source 
* libguile/vm.c: Fix embarrassing error regarding the symbolitude of
  vm-error and friends.
This commit is contained in:
Andy Wingo 2010-02-25 00:43:44 +01:00
parent ce4c9a6d00
commit 35ac785286
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/vm.c
View file

@ -752,10 +752,10 @@ scm_bootstrap_vm (void)
scm_c_register_extension ("libguile", "scm_init_vm", scm_c_register_extension ("libguile", "scm_init_vm",
(scm_t_extension_init_func)scm_init_vm, NULL); (scm_t_extension_init_func)scm_init_vm, NULL);
sym_vm_run = scm_from_locale_string ("vm-run"); sym_vm_run = scm_from_locale_symbol ("vm-run");
sym_vm_error = scm_from_locale_string ("vm-error"); sym_vm_error = scm_from_locale_symbol ("vm-error");
sym_keyword_argument_error = scm_from_locale_string ("keyword-argument-error"); sym_keyword_argument_error = scm_from_locale_symbol ("keyword-argument-error");
sym_debug = scm_from_locale_string ("debug"); sym_debug = scm_from_locale_symbol ("debug");
#ifdef VM_ENABLE_PRECISE_STACK_GC_SCAN #ifdef VM_ENABLE_PRECISE_STACK_GC_SCAN
vm_stack_gc_kind = vm_stack_gc_kind =