mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

fix test-loose-ends

Browse source 
* test-suite/standalone/test-loose-ends.c (test_scm_local_eval): Use
  ice-9 local-eval to get (the-environment).
This commit is contained in:
Andy Wingo 2012-01-26 18:21:01 +01:00
parent 68c31a42ab
commit 0133e13f34
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/standalone/test-loose-ends.c
View file

@ -45,7 +45,10 @@ test_scm_from_locale_keywordn ()
static void static void
test_scm_local_eval () 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_list_3 (scm_from_latin1_symbol ("+"),
scm_from_latin1_symbol ("x"), scm_from_latin1_symbol ("x"),
scm_from_latin1_symbol ("y")), scm_from_latin1_symbol ("y")),