From ec65ce7557365e956e69daa7869b683d3233430f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Jun 2011 02:27:03 -0700
Subject: [PATCH] Fix out-of-place declarations.

---
 src/microcode/lookup.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/microcode/lookup.c b/src/microcode/lookup.c
index b17839c41..ee42289c0 100644
--- 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));
   }
 }
-- 
2.25.1