From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 14 Feb 2012 17:34:17 +0000 (-0700)
Subject: Fix stack address printing in Debug_Stack_Trace.
X-Git-Tag: release-9.2.0~296
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=70fa0988ecc3bb70d9464abe529d5b836b6867d0;p=mit-scheme.git

Fix stack address printing in Debug_Stack_Trace.
---

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index c72730014..8838cc2c3 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -685,8 +685,8 @@ Back_Trace (outf_channel stream)
 	  break;
 	}
 #endif
-      Temp = (STACK_POP ());
       outf (stream, "{%#lx}", ((unsigned long) stack_pointer));
+      Temp = (STACK_POP ());
       if (RETURN_CODE_P (Temp))
 	{
 	  if (print_one_continuation_frame (stream, Temp))