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.