Add call-with-current-language procedure.

[mikesperber]

This can be used to make reproducible tests for code that generates messages using the string constants. (Such as the upcoming test-engine changes.)