~ chicken-core (chicken-5) 60512769eaf841ee42f086e7dcebcaf9986ccfef

commit 60512769eaf841ee42f086e7dcebcaf9986ccfef
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Apr 25 08:40:29 2015 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Apr 25 08:40:29 2015 +1200

    Use srfi-4 module for environment-tests
    
    The `module-environment` procedure only works for primitive modules,
    which chicken.data-structures is not.

diff --git a/tests/environment-tests.scm b/tests/environment-tests.scm
index b6680d41..98b57627 100644
--- a/tests/environment-tests.scm
+++ b/tests/environment-tests.scm
@@ -39,12 +39,14 @@
   (import r5rs)
   (define (bar) 99))
 
+(require-library srfi-4)
+
 (define foo-env (module-environment 'foo))
-(define ds-env (module-environment 'data-structures))
+(define srfi-4-env (module-environment 'srfi-4))
 
 (test-equal (eval '(bar) foo-env) 99)
 (test-error (eval 'baz foo-env))
-(test-equal (eval '(conc 1 2) ds-env) "12")
-(test-error (eval 'baz ds-env))
+(test-equal (eval '(u8vector-ref (u8vector 0 1 2) 1) srfi-4-env) 1)
+(test-error (eval 'baz srfi-4-env))
 
 (test-end)