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

Add a missing SYNC_ALL in variable-ref

Browse source 
* libguile/vm-i-system.c (variable-ref): Add a missing SYNC_ALL.
This commit is contained in:
Andy Wingo 2012-05-02 12:59:11 +02:00
parent ff4d367275
commit 4cec6c221a
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm-i-system.c
View file

@ -310,6 +310,7 @@ VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 1, 1)
{ {
SCM var_name; SCM var_name;
SYNC_ALL ();
/* Attempt to provide the variable name in the error message. */ /* Attempt to provide the variable name in the error message. */
var_name = scm_module_reverse_lookup (scm_current_module (), x); var_name = scm_module_reverse_lookup (scm_current_module (), x);
vm_error_unbound (program, scm_is_true (var_name) ? var_name : x); vm_error_unbound (program, scm_is_true (var_name) ? var_name : x);