On Sat, Mar 24, 2012 at 12:37 PM, Nala Ginrut
<address@hidden> wrote:
Hi folks!
I encountered a bug in my project for these days. Finally I realized it's because of my locale is zh_CN.UTF-8 in default. But in many protocols, it needs
the result of strftime be in English. Anyway, I think there should be an elegant way to change locale temperately. So I think maybe with-locale would be useful.
---------------------------------------------------------------------
(define-syntax-rule (with-locale i c e0 e1 ...)
(let ([old (setlocale i)])
(dynamic-wind
(lambda () (setlocale i c))
(lambda () (begin e0 e1 ...))
(lambda () (setlocale i old)))))
---------------------------------------------------------------------
What you guys think?
Regards.