1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00

fix variable not initialized spurious warnings

* libguile/vm-i-system.c: Work around some spurious "variable not
  initialized" messages on Etch's gcc.
This commit is contained in:
Andy Wingo 2009-02-25 00:21:03 +01:00
parent 893be93f58
commit 4054d93183

View file

@ -278,7 +278,7 @@ VM_DEFINE_INSTRUCTION (25, toplevel_ref, "toplevel-ref", 1, 0, 1)
SYNC_REGISTER ();
if (SCM_LIKELY (SCM_SYMBOLP (what)))
{
SCM mod;
SCM mod = SCM_EOL;
if (SCM_LIKELY (scm_module_system_booted_p
&& scm_is_true ((mod = scm_program_module (program)))))
/* might longjmp */
@ -361,7 +361,7 @@ VM_DEFINE_INSTRUCTION (29, toplevel_set, "toplevel-set", 1, 1, 0)
SYNC_BEFORE_GC ();
if (SCM_LIKELY (SCM_SYMBOLP (what)))
{
SCM mod;
SCM mod = SCM_EOL;
if (SCM_LIKELY (scm_module_system_booted_p
&& scm_is_true ((mod = scm_program_module (program)))))
/* might longjmp */