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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-03 02:46:24 -0800 (Thu, 03 Nov 2005)
New Revision: 1957

Modified:
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/mbcport.c
Log:
* sigscheme/mbcport.c
  - (mbcport_get_char): Make line number counting platform-independent
* sigscheme/io.c
  - (ScmOp_newline): Make newline printing platform-independent


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-11-03 10:37:10 UTC (rev 1956)
+++ branches/r5rs/sigscheme/io.c	2005-11-03 10:46:24 UTC (rev 1957)
@@ -402,7 +402,7 @@
     DECLARE_FUNCTION("newline", ProcedureVariadic0);
 
     PREPARE_PORT(port, args, scm_current_output_port);
-    SigScm_DisplayToPort(port, Scm_NewStringCopying("\n"));
+    SigScm_PortNewline(port);
     return SCM_UNDEF;
 }
 

Modified: branches/r5rs/sigscheme/mbcport.c
===================================================================
--- branches/r5rs/sigscheme/mbcport.c	2005-11-03 10:37:10 UTC (rev 1956)
+++ branches/r5rs/sigscheme/mbcport.c	2005-11-03 10:46:24 UTC (rev 1957)
@@ -173,7 +173,7 @@
     port->rbuf[0] = '\0';
     SCM_MBCPORT_CLEAR_STATE(cport)
 #if SCM_DEBUG
-    if (ch == '\n')
+    if (ch == SCM_NEWLINE_STR[0])
         port->linenum++;
 #endif