mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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

6
test-suite/guile-test
View file

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