diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-02-08 14:48:56 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-08 14:48:56 +0100 |
| commit | 12b8487d5d7272ae5bda62477df60d3e795aa645 (patch) | |
| tree | 97c0b864f7302ec8f9cd2798ec36ade821a3f3a4 /test-suite/tests/regexp.test | |
| parent | adf06a72d53821d34e14fa69b20b10e2f809f593 (diff) | |
| parent | 0ce224594ae5a673f6a397c284db5f5a61935334 (diff) | |
| download | guile-12b8487d5d7272ae5bda62477df60d3e795aa645.tar.gz | |
Merge commit '0ce224594ae5a673f6a397c284db5f5a61935334'
Diffstat (limited to 'test-suite/tests/regexp.test')
| -rw-r--r-- | test-suite/tests/regexp.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/regexp.test b/test-suite/tests/regexp.test index d25a3d42d..2446dc7c7 100644 --- a/test-suite/tests/regexp.test +++ b/test-suite/tests/regexp.test @@ -2,7 +2,7 @@ ;;;; Jim Blandy <jimb@red-bean.com> --- September 1999 ;;;; ;;;; Copyright (C) 1999, 2004, 2006, 2007, 2008, 2009, 2010, -;;;; 2012, 2013 Free Software Foundation, Inc. +;;;; 2012, 2013, 2014 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 @@ -23,8 +23,8 @@ #:use-module (srfi srfi-1) #:use-module (ice-9 regex)) -(if (defined? 'setlocale) - (setlocale LC_ALL "C")) +(when (defined? 'setlocale) + (setlocale LC_ALL "C")) ;; Don't fail if we can't display a test name to stdout/stderr. (set-port-conversion-strategy! (current-output-port) 'escape) |