1 files changed, 12 insertions, 1 deletions
diff --git a/module/hnh/util/env.scm b/module/hnh/util/env.scm
index bb42d966..f5992245 100644
--- a/module/hnh/util/env.scm
+++ b/module/hnh/util/env.scm
@@ -1,5 +1,7 @@
 (define-module (hnh util env)
-  :export (let-env with-working-directory))
+  :export (let-env
+           with-working-directory
+           with-locale1))
 
 (define-syntax let-env
   (syntax-rules ()
@@ -37,3 +39,12 @@
      thunk
      (lambda () (chdir old-cwd)))))
 
+
+(define-syntax-rule (with-locale1 category locale thunk)
+  (let ((old #f))
+    (dynamic-wind
+      (lambda ()
+        (set! old (setlocale category))
+        (setlocale category locale))
+      thunk
+      (lambda () (setlocale category old)))))