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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 04:43:59 -0700 (Fri, 30 Sep 2005)
New Revision: 1687

Modified:
   branches/r5rs/sigscheme/config.h
   branches/r5rs/sigscheme/error.c
Log:
* sigscheme/config.h
  - (SCM_DEBUG_BACKTRACE_VAL): New macro
* sigscheme/error.c
  - (SigScm_ShowBacktrace):
    * Print the separator at end
    * Support SCM_DEBUG_BACKTRACE_VAL


Modified: branches/r5rs/sigscheme/config.h
===================================================================
--- branches/r5rs/sigscheme/config.h	2005-09-30 11:35:44 UTC (rev 1686)
+++ branches/r5rs/sigscheme/config.h	2005-09-30 11:43:59 UTC (rev 1687)
@@ -77,6 +77,7 @@
 #define SCM_DEBUG_GC            0  /* enable GC debugging */
 #define SCM_DEBUG_PARSER        0  /* enable parser debugging */
 #define SCM_DEBUG_BACKTRACE_SEP 1  /* enable frame-separator on backtrace */
+#define SCM_DEBUG_BACKTRACE_VAL 1  /* enable values printing on backtrace */
 
 /*===========================================================================
   Dependency Resolution

Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-09-30 11:35:44 UTC (rev 1686)
+++ branches/r5rs/sigscheme/error.c	2005-09-30 11:43:59 UTC (rev 1687)
@@ -140,7 +140,7 @@
     for (f = scm_trace_root; f; f = f->prev) {
 #if SCM_DEBUG_BACKTRACE_SEP
         SigScm_ErrorPrintf("------------------------------\n");
-#endif
+#endif /* SCM_DEBUG_BACKTRACE_SEP */
 
         env = f->env;
         obj = f->obj;
@@ -148,6 +148,7 @@
         SigScm_WriteToPort(scm_current_error_port, obj);
         SigScm_ErrorNewline();
 
+#if SCM_DEBUG_BACKTRACE_VAL
         switch (SCM_TYPE(obj)) {
         case ScmSymbol:
             if (UNBOUNDP(obj, env))
@@ -174,9 +175,13 @@
         default:
             break;
         }
+#endif /* SCM_DEBUG_BACKTRACE_VAL */
     }
+#if SCM_DEBUG_BACKTRACE_SEP
+        SigScm_ErrorPrintf("------------------------------\n");
+#endif /* SCM_DEBUG_BACKTRACE_SEP */
+#endif /* SCM_DEBUG */
 #undef UNBOUNDP
-#endif
 }
 
 void SigScm_ShowErrorHeader(void)