[Guile-commits] GNU Guile branch, master, updated. release_1-9-14-90-g6672308

[Ludovic Courtès]

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=667230810b2ef95b6e8ee0b33ff1cdb61cc3ca21

The branch, master has been updated
       via  667230810b2ef95b6e8ee0b33ff1cdb61cc3ca21 (commit)
      from  da288f50bf3c4950cf37d5e24b8ce2a21b367989 (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 667230810b2ef95b6e8ee0b33ff1cdb61cc3ca21
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jan 24 23:37:46 2011 +0100

    Install the current locale when starting the REPL.
    
    * module/ice-9/top-repl.scm (top-repl): Install the current locale.

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

Summary of changes:
 module/ice-9/top-repl.scm |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/module/ice-9/top-repl.scm b/module/ice-9/top-repl.scm
index c5039f5..291d9e5 100644
--- a/module/ice-9/top-repl.scm
+++ b/module/ice-9/top-repl.scm
@@ -1,7 +1,7 @@
 ;;; -*- mode: scheme; coding: utf-8; -*-
 
-;;;; Copyright (C) 
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010
-;;;; Free Software Foundation, Inc.
+;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;;;;   2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -64,6 +64,8 @@
 
     (call-with-sigint
      (lambda ()
+       (and (defined? 'setlocale)
+            (setlocale LC_ALL ""))
        (let ((status (start-repl 'scheme)))
          (run-hook exit-hook)
          status)))))


hooks/post-receive
-- 
GNU Guile