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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-27 13:36:37 -0700 (Tue, 27 Sep 2005)
New Revision: 1619

Modified:
   branches/r5rs/sigscheme/debug.c
Log:
* sigscheme/debug.c
  - (SigScm_Display): Change SIOD-compatible 'print' implementation
    to real 'display'


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-09-27 20:18:25 UTC (rev 1618)
+++ branches/r5rs/sigscheme/debug.c	2005-09-27 20:36:37 UTC (rev 1619)
@@ -153,11 +153,7 @@
 
 void SigScm_Display(ScmObj obj)
 {
-    print_ScmObj_internal(SCM_PORTINFO_FILE(scm_current_output_port), obj, AS_WRITE);
-    fprintf(SCM_PORTINFO_FILE(scm_current_output_port), "\n");
-#if SCM_VOLATILE_OUTPUT
-    fflush(SCM_PORTINFO_FILE(scm_current_output_port));
-#endif
+    SigScm_DisplayToPort(scm_current_output_port, obj);
 }
 
 void SigScm_WriteToPort(ScmObj port, ScmObj obj)