[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-202-gd0a77f1

[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=d0a77f10f23fb95a8f4b1b36d475258a6bd447b8

The branch, stable-2.0 has been updated
       via  d0a77f10f23fb95a8f4b1b36d475258a6bd447b8 (commit)
      from  24cac6554073bb6e691605cd6ac6196f3c0851a3 (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 d0a77f10f23fb95a8f4b1b36d475258a6bd447b8
Author: Mark H Weaver <address@hidden>
Date:   Sat Feb 8 12:35:35 2014 -0500

    Fix improper use of 'with-locale'.
    
    * test-suite/guile-test (run-tests): Use 'setlocale' with check
      instead of 'with-locale'.

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

Summary of changes:
 test-suite/guile-test |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test-suite/guile-test b/test-suite/guile-test
index 43ea481..4a264b4 100755
--- a/test-suite/guile-test
+++ b/test-suite/guile-test
@@ -239,9 +239,10 @@
                  (lambda ()
                    (for-each (lambda (test)
                                (display (string-append "Running " test "\n"))
-                               (with-locale "C"
-                                 (with-test-prefix test
-                                   (load (test-file-name test)))))
+                               (when (defined? 'setlocale)
+                                 (setlocale LC_ALL "C"))
+                               (with-test-prefix test
+                                 (load (test-file-name test))))
                              tests))))
             (if (opt 'coverage #f)
                 (let-values (((coverage-data _)
@@ -263,5 +264,4 @@
 
 ;;; Local Variables:
 ;;; mode: scheme
-;;; eval: (put 'with-locale 'scheme-indent-function 1)
 ;;; End:


hooks/post-receive
-- 
GNU Guile