[uim-commit] r3052 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-31 16:15:18 -0800 (Tue, 31 Jan 2006)
New Revision: 3052

Modified:
   branches/r5rs/sigscheme/src/main.c
Log:
* sigscheme/src/main.c
  - (repl_loop): Fix excessive evaluation


Modified: branches/r5rs/sigscheme/src/main.c
===================================================================
--- branches/r5rs/sigscheme/src/main.c	2006-02-01 00:06:14 UTC (rev 3051)
+++ branches/r5rs/sigscheme/src/main.c	2006-02-01 00:15:18 UTC (rev 3052)
@@ -150,7 +150,7 @@
          *         (else
          *          (%%inspect-error err)
          *          #<err>))
-         *   (eval exp (interaction-environment)))
+         *   (eval (quote sexp) (interaction-environment)))
          *
          * To allow redefinition of 'guard' and '%%inspect-err', surely access
          * them via symbol instead of prepared syntax or procedure object.
@@ -158,7 +158,7 @@
         SCM_EVAL_STATE_INIT1(eval_state, SCM_INTERACTION_ENV);
         result = scm_s_srfi34_guard(cond_catch,
                                     LIST_1(LIST_3(proc_eval,
-                                                  sexp,
+                                                  LIST_2(SYM_QUOTE, sexp),
                                                   SCM_INTERACTION_ENV)),
                                     &eval_state);
         if (eval_state.ret_type == SCM_VALTYPE_NEED_EVAL)