~ 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