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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-22 07:46:53 -0800 (Sun, 22 Jan 2006)
New Revision: 2972

Modified:
   branches/r5rs/sigscheme/src/sigscheme.c
Log:
* sigscheme/src/sigscheme.c
  - (scm_interpret_argv): Simplify error printing


Modified: branches/r5rs/sigscheme/src/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/src/sigscheme.c	2006-01-22 15:43:52 UTC (rev 2971)
+++ branches/r5rs/sigscheme/src/sigscheme.c	2006-01-22 15:46:53 UTC (rev 2972)
@@ -384,8 +384,8 @@
                 if (scm_initialized) {
                     ERR("no encoding name specified");
                 } else {
-                    fprintf(stderr, "%sno encoding name specified\n",
-                            SCM_ERR_HEADER);
+                    fputs(SCM_ERR_HEADER "no encoding name specified\n",
+                          stderr);
                     exit(EXIT_FAILURE);
                 }
             }
@@ -401,8 +401,8 @@
                 scm_free_argv(argv);
                 ERR_OBJ("unsupported encoding", err_obj);
             } else {
-                fprintf(stderr, "%sunsupported encoding: %s\n",
-                        SCM_ERR_HEADER, encoding);
+                fprintf(stderr, SCM_ERR_HEADER "unsupported encoding: %s\n",
+                        encoding);
                 exit(EXIT_FAILURE);
             }
         }