From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Jun 2011 09:27:03 +0000 (-0700)
Subject: Fix out-of-place declarations.
X-Git-Tag: release-9.1.0~14
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ec65ce7557365e956e69daa7869b683d3233430f;p=mit-scheme.git

Fix out-of-place declarations.
---

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));
   }
 }