~ chicken-core (chicken-5) 25e3368864b7c003af4e0a40af0f2bc9b86bf8d9


commit 25e3368864b7c003af4e0a40af0f2bc9b86bf8d9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 2 08:56:45 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 2 08:56:45 2011 +0200

    tweaked types.db entry for module-environment

diff --git a/types.db b/types.db
index 0eb20fa2..a9a5f284 100644
--- a/types.db
+++ b/types.db
@@ -941,7 +941,7 @@
 (maximum-flonum float)
 (memory-statistics (#(procedure #:clean) memory-statistics () (vector fixnum)))
 (minimum-flonum float)
-(module-environment (procedure module-environment (symbol #!optional symbol) (struct environment)))
+(module-environment (#(procedure #:clean #:enforce) module-environment (symbol #!optional symbol) (struct environment)))
 (most-negative-fixnum fixnum)
 (most-positive-fixnum fixnum)
 (on-exit (#(procedure #:clean #:enforce) on-exit ((procedure () . *)) undefined))
Trap