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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-18 18:16:28 -0800 (Sun, 18 Dec 2005)
New Revision: 2645

Modified:
   branches/r5rs/sigscheme/error.c
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/error.c
  - (scm_p_inspect_error): Cosmetic change
* sigscheme/io.c
  - (scm_init_io): Ditto


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-12-19 02:11:45 UTC (rev 2644)
+++ branches/r5rs/sigscheme/error.c	2005-12-19 02:16:28 UTC (rev 2645)
@@ -264,8 +264,7 @@
         if (ERROBJP(err_obj)) {
             scm_display_to_port(scm_err, err_obj);
         } else {
-            scm_port_puts(scm_err,
-                          SCM_ERRMSG_UNHANDLED_EXCEPTION);
+            scm_port_puts(scm_err, SCM_ERRMSG_UNHANDLED_EXCEPTION);
             scm_port_puts(scm_err, ": ");
             scm_write_to_port(scm_err, err_obj);
         }

Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-12-19 02:11:45 UTC (rev 2644)
+++ branches/r5rs/sigscheme/io.c	2005-12-19 02:16:28 UTC (rev 2645)
@@ -95,12 +95,9 @@
     scm_sbcport_init();
 #endif
 
-    scm_in  = scm_make_shared_file_port(stdin, "stdin",
-                                                     SCM_PORTFLAG_INPUT);
-    scm_out = scm_make_shared_file_port(stdout, "stdout",
-                                                     SCM_PORTFLAG_OUTPUT);
-    scm_err  = scm_make_shared_file_port(stderr, "stderr",
-                                                     SCM_PORTFLAG_OUTPUT);
+    scm_in  = scm_make_shared_file_port(stdin, "stdin", SCM_PORTFLAG_INPUT);
+    scm_out = scm_make_shared_file_port(stdout, "stdout", SCM_PORTFLAG_OUTPUT);
+    scm_err = scm_make_shared_file_port(stderr, "stderr", SCM_PORTFLAG_OUTPUT);
     scm_gc_protect(&scm_in);
     scm_gc_protect(&scm_out);
     scm_gc_protect(&scm_err);