From 0133e13f3424db582f3f58c13d6f3dc0627bd53b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 18:21:01 +0100 Subject: [PATCH] fix test-loose-ends * test-suite/standalone/test-loose-ends.c (test_scm_local_eval): Use ice-9 local-eval to get (the-environment). --- test-suite/standalone/test-loose-ends.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test-suite/standalone/test-loose-ends.c b/test-suite/standalone/test-loose-ends.c index f815ae253..d1d683175 100644 --- a/test-suite/standalone/test-loose-ends.c +++ b/test-suite/standalone/test-loose-ends.c @@ -45,7 +45,10 @@ test_scm_from_locale_keywordn () static void test_scm_local_eval () { - SCM result = scm_local_eval + SCM result; + + scm_c_use_module ("ice-9 local-eval"); + result = scm_local_eval (scm_list_3 (scm_from_latin1_symbol ("+"), scm_from_latin1_symbol ("x"), scm_from_latin1_symbol ("y")),