[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-286-g4120539

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=412053922501e2e9cac7fc0c1b91de8fc3aa375a

The branch, stable-2.0 has been updated
       via  412053922501e2e9cac7fc0c1b91de8fc3aa375a (commit)
      from  c3e3ef6eb6d1487d342389b202b0b00f9385de6a (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 412053922501e2e9cac7fc0c1b91de8fc3aa375a
Author: Mark H Weaver <address@hidden>
Date:   Wed Apr 3 16:00:12 2013 -0400

    Preserve the case of the user-specified port encoding string.
    
    * libguile/ports.c (scm_i_set_port_encoding_x): Always copy the
      user-provided port encoding string, so that its case will be preserved
      and returned exactly by subsequent calls to 'port-encoding'.

-----------------------------------------------------------------------

Summary of changes:
 libguile/ports.c |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index 61f8006..eaa2047 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2385,7 +2385,6 @@ scm_i_set_port_encoding_x (SCM port, const char *encoding)
      descriptor.  */
   if (strcasecmp (encoding, "UTF-8") == 0)
     {
-      pt->encoding = "UTF-8";
       pti->encoding_mode = SCM_PORT_ENCODING_MODE_UTF8;
       pti->iconv_descriptors = NULL;
     }
@@ -2396,9 +2395,9 @@ scm_i_set_port_encoding_x (SCM port, const char *encoding)
         open_iconv_descriptors (encoding,
                                 SCM_INPUT_PORT_P (port),
                                 SCM_OUTPUT_PORT_P (port));
-      pt->encoding = scm_gc_strdup (encoding, "port");
       pti->encoding_mode = SCM_PORT_ENCODING_MODE_ICONV;
     }
+  pt->encoding = scm_gc_strdup (encoding, "port");
 
   if (prev)
     close_iconv_descriptors (prev);


hooks/post-receive
-- 
GNU Guile