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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-08 14:25:47 -0800 (Thu, 08 Dec 2005)
New Revision: 2459

Modified:
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/io.c
  - (SigScm_PortPrintf, SigScm_VPortPrintf
     SigScm_PortNewline): revert r2377


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-12-08 20:06:43 UTC (rev 2458)
+++ branches/r5rs/sigscheme/io.c	2005-12-08 22:25:47 UTC (rev 2459)
@@ -143,9 +143,6 @@
 {
     va_list args;
 
-    if (!port)
-        return;
-
     va_start(args, fmt);
     SigScm_VPortPrintf(port, fmt, args);
     va_end(args);
@@ -153,9 +150,6 @@
 
 void SigScm_VPortPrintf(ScmObj port, const char *fmt, va_list args)
 {
-    if (!port)
-        return;
-
     SCM_PORT_VPRINTF(port, fmt, args);
 #if SCM_VOLATILE_OUTPUT
     SCM_PORT_FLUSH(port);
@@ -164,9 +158,6 @@
 
 void SigScm_PortNewline(ScmObj port)
 {
-    if (!port)
-        return;
-
     SCM_PORT_PUTS(port, SCM_NEWLINE_STR);
     SCM_PORT_FLUSH(port);  /* required */
 }