mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix improper use of 'with-locale'.

Browse source 
* test-suite/guile-test (run-tests): Use 'setlocale' with check
  instead of 'with-locale'.
This commit is contained in:
Mark H Weaver 2014-02-08 12:35:35 -05:00
parent 24cac65540
commit d0a77f10f2
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/guile-test
View file

@ -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: