diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs-module.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c index ff575ff44df..3a246637990 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c | |||
| @@ -1167,15 +1167,11 @@ module_handle_throw (emacs_env *env, Lisp_Object tag_val) | |||
| 1167 | void | 1167 | void |
| 1168 | init_module_assertions (bool enable) | 1168 | init_module_assertions (bool enable) |
| 1169 | { | 1169 | { |
| 1170 | /* If enabling module assertions, use a hidden environment for | ||
| 1171 | storing the globals. This environment is never freed. */ | ||
| 1170 | module_assertions = enable; | 1172 | module_assertions = enable; |
| 1171 | if (enable) | 1173 | if (enable) |
| 1172 | { | 1174 | global_env = initialize_environment (NULL, &global_env_private); |
| 1173 | /* We use a hidden environment for storing the globals. This | ||
| 1174 | environment is never freed. */ | ||
| 1175 | emacs_env env; | ||
| 1176 | global_env = initialize_environment (&env, &global_env_private); | ||
| 1177 | eassert (global_env != &env); | ||
| 1178 | } | ||
| 1179 | } | 1175 | } |
| 1180 | 1176 | ||
| 1181 | static _Noreturn void | 1177 | static _Noreturn void |