Avoid using uninitialized stack garbage.

diff --git a/src/microcode/lookup.c b/src/microcode/lookup.c
index d4f2b644818c62816919b9a04e6c5a2a625aea32..1addf080ed5ccfe9134fc336bd3b2e2a7f3a9b02 100644 (file)
--- a/src/microcode/lookup.c
+++ b/src/microcode/lookup.c
@@ -668,7 +668,7 @@ long
 unbind_variable (SCHEME_OBJECT environment, SCHEME_OBJECT symbol,
                 SCHEME_OBJECT * value_ret)
 {
-  SCHEME_OBJECT frame;
+  SCHEME_OBJECT frame = 0;
   SCHEME_OBJECT * cell = (find_binding_cell (environment, symbol, (&frame)));
   if (GLOBAL_FRAME_P (frame))
     weaken_symbol (symbol);