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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-27 15:44:11 -0800 (Fri, 27 Jan 2006)
New Revision: 3005

Modified:
   branches/r5rs/sigscheme/src/main.c
Log:
* sigscheme/src/main.c
  - (repl_loop): Fix broken codes for !SCM_USE_SRFI34


Modified: branches/r5rs/sigscheme/src/main.c
===================================================================
--- branches/r5rs/sigscheme/src/main.c	2006-01-27 23:43:04 UTC (rev 3004)
+++ branches/r5rs/sigscheme/src/main.c	2006-01-27 23:44:11 UTC (rev 3005)
@@ -152,18 +152,19 @@
          */
         result = EVAL(LIST_3(sym_guard, cond_catch, sexp),
                       SCM_INTERACTION_ENV);
+        if (!EQ(result, err)) {
+            SCM_WRITESS_TO_PORT(scm_out, result);
+            scm_port_newline(scm_out);
+        }
 #else /* SCM_USE_SRFI34 */
-        sexp = scm_read(scm_in)
+        sexp = scm_read(scm_in);
         if (EOFP(sexp))
             break;
 
         result = EVAL(sexp, SCM_INTERACTION_ENV);
+        SCM_WRITESS_TO_PORT(scm_out, result);
+        scm_port_newline(scm_out);
 #endif /* SCM_USE_SRFI34 */
-
-        if (!EQ(result, err)) {
-            SCM_WRITESS_TO_PORT(scm_out, result);
-            scm_port_newline(scm_out);
-        }
     }
 }