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

kzk at freedesktop.org kzk at freedesktop.org
Fri Nov 18 15:14:37 PST 2005


Author: kzk
Date: 2005-11-18 15:14:32 -0800 (Fri, 18 Nov 2005)
New Revision: 2154

Modified:
   branches/r5rs/sigscheme/main.c
Log:
* sigscheme/main.c
  - (repl_loop): use flag SCM_EXCEPTION_HANDLING
    instead of SCM_USE_SRFI34


Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-11-18 22:42:53 UTC (rev 2153)
+++ branches/r5rs/sigscheme/main.c	2005-11-18 23:14:32 UTC (rev 2154)
@@ -95,20 +95,20 @@
     ScmObj cond_catch = SCM_FALSE;
     int is_prompt     = is_repl_prompt();
 
-#if SCM_USE_SRFI34
+#if SCM_EXCEPTION_HANDLING
     /* prepare the constant part of the form to get the loop fast */
     sym_guard = Scm_Intern("guard");
     cond_catch = LIST_2(Scm_Intern("err"),
                         LIST_2(SYM_ELSE,
                                LIST_2(Scm_Intern("%%inspect-error"),
                                       Scm_Intern("err"))));
-#endif /* SCM_USE_SRFI34 */
+#endif /* SCM_EXCEPTION_HANDLING */
 
     if (is_prompt)
         SigScm_PortPrintf(scm_current_output_port, PROMPT_STR);
 
     while (s_exp = SigScm_Read(scm_current_input_port), !EOFP(s_exp)) {
-#if SCM_USE_SRFI34
+#if SCM_EXCEPTION_HANDLING
         /*
          * Error-proof evaluation
          *
@@ -122,9 +122,9 @@
          */
         result = EVAL(LIST_3(sym_guard, cond_catch, s_exp),
                       SCM_INTERACTION_ENV);
-#else /* SCM_USE_SRFI34 */
+#else /* SCM_EXCEPTION_HANDLING */
         result = EVAL(s_exp, SCM_INTERACTION_ENV);
-#endif /* SCM_USE_SRFI34 */
+#endif /* SCM_EXCEPTION_HANDLING */
 
 #if SCM_USE_SRFI38
         SigScm_WriteToPortWithSharedStructure(scm_current_output_port, result);



More information about the uim-commit mailing list