[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