[svn:parrot] r39223 - trunk/src/ops

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu May 28 17:33:38 2009
New Revision: 39223
URL: https://trac.parrot.org/parrot/changeset/39223

Log:
[io] use putps instad of puts to emit newline in say, inspired by TT #717

Modified:
   trunk/src/ops/io.ops

Modified: trunk/src/ops/io.ops
==============================================================================
--- trunk/src/ops/io.ops	Thu May 28 16:25:04 2009	(r39222)
+++ trunk/src/ops/io.ops	Thu May 28 17:33:38 2009	(r39223)
@@ -235,7 +235,7 @@
   STRING * const s = $1;
   if (s && Parrot_str_byte_length(interp, s))
     Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
-  Parrot_io_puts(interp, _PIO_STDOUT(interp), "\n");
+  Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
 }
 
 op say(invar PMC) :base_io {
@@ -251,7 +251,7 @@
         STRING * const s = VTABLE_get_string(interp, p);
         if (s)
             Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
-        Parrot_io_puts(interp, _PIO_STDOUT(interp), "\n");
+        Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
     }
 }