diff options
author | Mark H Weaver <mhw@netris.org> | 2014-02-08 12:35:35 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-02-08 12:40:15 -0500 |
commit | d0a77f10f23fb95a8f4b1b36d475258a6bd447b8 (patch) | |
tree | a8ebd6259bdca096f9c69b478381da22bfabe33c /test-suite/guile-test | |
parent | 24cac6554073bb6e691605cd6ac6196f3c0851a3 (diff) | |
download | guile-d0a77f10f23fb95a8f4b1b36d475258a6bd447b8.tar.gz |
Fix improper use of 'with-locale'.
* test-suite/guile-test (run-tests): Use 'setlocale' with check
instead of 'with-locale'.
Diffstat (limited to 'test-suite/guile-test')
-rwxr-xr-x | 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 43ea48174..4a264b426 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: |