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