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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-04 09:54:16 -0800 (Fri, 04 Nov 2005)
New Revision: 1989

Modified:
   branches/r5rs/sigscheme/main.c
Log:
* sigscheme/main.c
  - (repl_loop): quote s_expression


Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-11-04 14:58:00 UTC (rev 1988)
+++ branches/r5rs/sigscheme/main.c	2005-11-04 17:54:16 UTC (rev 1989)
@@ -111,7 +111,7 @@
         result = ScmExp_SRFI34_guard(LIST_2(Scm_Intern("err"),
                                             LIST_2(Scm_Intern("else"), SCM_UNDEF)),
                                      LIST_1(LIST_3(Scm_Intern("eval"),
-                                                   s_exp,
+                                                   LIST_2(SCM_QUOTE, s_exp),
                                                    SCM_INTERACTION_ENV)),
                                      SCM_INTERACTION_ENV);
 #else /* SCM_USE_SRFI34 */