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

yamaken at freedesktop.org yamaken at freedesktop.org
Fri Sep 23 02:05:29 PDT 2005


Author: yamaken
Date: 2005-09-23 02:05:26 -0700 (Fri, 23 Sep 2005)
New Revision: 1542

Modified:
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/io.c
  - (ScmOp_require): Fix inappopriate error message printing to
    stdout, and disable it by default


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-09-23 08:35:51 UTC (rev 1541)
+++ branches/r5rs/sigscheme/io.c	2005-09-23 09:05:26 UTC (rev 1542)
@@ -559,7 +559,9 @@
 #if SCM_COMPAT_SIOD
     retsym_name = (char*)malloc(sizeof(char) * (strlen(SCM_STRING_STR(filename)) + strlen("*-loaded*") + 1));
     sprintf(retsym_name, "*%s-loaded*", SCM_STRING_STR(filename));
-    printf("retsym_name = %s\n", retsym_name);
+#if 0
+    fprintf(stderr, "retsym_name = %s\n", retsym_name);
+#endif
     retsym = Scm_Intern(retsym_name);
     free(retsym_name);
     return retsym;



More information about the uim-commit mailing list