~ 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