Remove last double evaluation from xtmtest

We're still doing a double eval, but that's only until we fix the tests.

Author: pdcawley

libs/core/test.xtm

@@ -89,7 +89,7 @@
                   (xtmtest-update-test-result func-sym 'no-compile ',call #f #f))
               (eval ',form (interaction-environment))
               (catch (xtmtest-update-test-result func-sym 'compile ',call #f #f)
-                     (let ((result (eval ,call (interaction-environment))))
+                     (let ((result (eval ',call (interaction-environment))))
                        (if (or (not exp-res) (equal? exp-res result))
                            (xtmtest-update-test-result func-sym 'correct ',call exp-res result)
                            (xtmtest-update-test-result func-sym 'incorrect ',call exp-res result))))))))