~ chicken-core (chicken-5) 505ce3154b3315616b2e989e7ed951fb9869a8a3


commit 505ce3154b3315616b2e989e7ed951fb9869a8a3
Author:     Moritz Heidkamp <moritz@twoticketsplease.de>
AuthorDate: Sun Feb 5 20:37:02 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Feb 7 07:48:51 2012 +0100

    register `module-environments' feature to indicate availability of the `module-environment' function
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/modules.scm b/modules.scm
index f248890a..8b048a3d 100644
--- a/modules.scm
+++ b/modules.scm
@@ -882,6 +882,8 @@
 
 (##sys#register-module-alias 'r5rs 'scheme)
 
+(register-feature! 'module-environments)
+
 (define (module-environment mname #!optional (ename mname))
   (let* ((mod (##sys#find-module/import-library mname 'module-environment))
 	 (saved (module-saved-environments mod)))
Trap