Fix out-of-place declarations.

diff --git a/src/microcode/lookup.c b/src/microcode/lookup.c
index b17839c4176f9e236782325fdb7d136a46bb23fd..ee42289c0c5ca1325fd04be379921d38428b765c 100644 (file)
--- a/src/microcode/lookup.c
+++ b/src/microcode/lookup.c
@@ -970,8 +970,9 @@ add_reference (SCHEME_OBJECT * palist,
     }
   {
     SCHEME_OBJECT reference;
+    SCHEME_OBJECT alist;
     DIE_IF_ERROR (make_cache_reference (block, offset, (&reference)));
-    SCHEME_OBJECT alist = (*palist);
+    alist = (*palist);
     (*palist) = (cons ((cons (symbol, (cons (reference, EMPTY_LIST)))), alist));
   }
 }