From 7d1337d069921554e8a649b31a529f4bfcf05d76 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Apr 2023 12:01:38 +0200
Subject: Add with-locale1.

---
 module/hnh/util/env.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'module')

diff --git a/module/hnh/util/env.scm b/module/hnh/util/env.scm
index 18ec0543..32ea1cc1 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 ()
@@ -33,3 +35,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)))))
-- 
cgit v1.2.3