It's an example program for my thesis language (Socrates), which is embedded in Scheme. The changes I made were to the language implementation, actually, not the program itself, but the 4x speedup is when running the example program (a little GUI solitaire puzzle involving putting dominos on a grid).