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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-05 10:00:01 -0800 (Sat, 05 Nov 2005)
New Revision: 2006

Modified:
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (ScmOp_sscm_backtrace): New function decl
* sigscheme/operations.c
  - (ScmOp_sscm_backtrace): New function
* sigscheme/sigscheme.c
  - (SigScm_Initialize_internal): Add initialization for %%backtrace


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-11-05 16:20:25 UTC (rev 2005)
+++ branches/r5rs/sigscheme/operations.c	2005-11-05 18:00:01 UTC (rev 2006)
@@ -1886,6 +1886,15 @@
     return (!NULLP(Scm_LookupEnvironment(sym, env))
             || SCM_SYMBOL_BOUNDP(sym)) ? SCM_TRUE : SCM_FALSE;
 }
+
+ScmObj ScmOp_sscm_backtrace(void)
+{
+    DECLARE_FUNCTION("%%backtrace", ProcedureFixed0);
+
+    SigScm_ShowBacktrace();
+
+    return SCM_UNDEF;
+}
 #endif /* SCM_USE_NONSTD_FEATURES */
 
 #if SCM_USE_SRFI1

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-11-05 16:20:25 UTC (rev 2005)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-11-05 18:00:01 UTC (rev 2006)
@@ -356,6 +356,7 @@
     =======================================================================*/
 #if SCM_USE_NONSTD_FEATURES
     Scm_RegisterProcedureVariadic1("symbol-bound?"     , ScmOp_symbol_boundp);
+    Scm_RegisterProcedureFixed0("%%backtrace"          , ScmOp_sscm_backtrace);
 
     Scm_RegisterProcedureFixed0("load-path"                , ScmOp_load_path);
     Scm_RegisterProcedureFixed1("require"                  , ScmOp_require);

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-11-05 16:20:25 UTC (rev 2005)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-11-05 18:00:01 UTC (rev 2006)
@@ -561,6 +561,7 @@
 ScmObj ScmOp_dynamic_wind(ScmObj before, ScmObj thunk, ScmObj after);
 #if SCM_USE_NONSTD_FEATURES
 ScmObj ScmOp_symbol_boundp(ScmObj sym, ScmObj rest);
+ScmObj ScmOp_sscm_backtrace(void);
 #endif
 
 /* io.c */