diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-26 18:21:01 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-26 18:21:01 +0100 |
commit | 0133e13f3424db582f3f58c13d6f3dc0627bd53b (patch) | |
tree | e0de4ee3f9f9a2498907a29a834b00520e7d1097 | |
parent | 68c31a42ab137a5a54a577f19a69dfcbcfd33271 (diff) | |
download | guile-0133e13f3424db582f3f58c13d6f3dc0627bd53b.tar.gz |
fix test-loose-ends
* test-suite/standalone/test-loose-ends.c (test_scm_local_eval): Use
ice-9 local-eval to get (the-environment).
-rw-r--r-- | test-suite/standalone/test-loose-ends.c | 5 |
1 files changed, 4 insertions, 1 deletions
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")), |