[uim-commit] r2135 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-14 05:19:59 -0800 (Mon, 14 Nov 2005)
New Revision: 2135

Modified:
   branches/r5rs/sigscheme/error.c
Log:
* sigscheme/error.c
  - (SigScm_ShowBacktrace): Fix trace_stack traversing enbuged in r2130


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-11-14 05:45:55 UTC (rev 2134)
+++ branches/r5rs/sigscheme/error.c	2005-11-14 13:19:59 UTC (rev 2135)
@@ -155,6 +155,7 @@
      && !SCM_SYMBOL_BOUNDP(var))
 
 #if SCM_DEBUG
+    ScmObj top;
     ScmObj frame;
     ScmObj env;
     ScmObj obj;
@@ -163,11 +164,12 @@
     SigScm_ErrorPrintf(SCM_BACKTRACE_HEADER);
 
     /* show each frame's obj */
-    for (frame = trace_stack; !NULLP(frame); frame = CDR(frame)) {
+    for (top = trace_stack; !NULLP(top); top = CDR(top)) {
 #if SCM_DEBUG_BACKTRACE_SEP
         SigScm_ErrorPrintf("------------------------------\n");
 #endif /* SCM_DEBUG_BACKTRACE_SEP */
 
+        frame = CAR(top);
         env = TRACE_FRAME_ENV(frame);
         obj = TRACE_FRAME_OBJ(frame);