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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-03 04:46:31 -0800 (Thu, 03 Nov 2005)
New Revision: 1965

Modified:
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/io.c
  - (SigScm_PortNewline): Add SCM_PORT_FLUSH()


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-11-03 12:14:23 UTC (rev 1964)
+++ branches/r5rs/sigscheme/io.c	2005-11-03 12:46:31 UTC (rev 1965)
@@ -151,6 +151,7 @@
 {
     if (!FALSEP(port)) {
         SCM_PORT_PUTS(port, SCM_NEWLINE_STR);
+        SCM_PORT_FLUSH(port);  /* required */
     }
 }