diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2001-05-25 13:15:57 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-25 13:15:57 +0000 |
| commit | e24ca5385a5e24e02c34c4691a9337ab7b35c050 (patch) | |
| tree | 11c9b35edf661c1779c981ee969a5bf75aa58256 /libguile | |
| parent | 0120801d39369cfb658a16efb5f5616f393690dc (diff) | |
(scm_env_module): Exported to Scheme.
Diffstat (limited to 'libguile')
| -rw-r--r-- | libguile/modules.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index fb2d456e9..439925755 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -262,11 +262,14 @@ scm_lookup_closure_module (SCM proc) } } -SCM -scm_env_module (SCM env) +SCM_DEFINE (scm_env_module, "env-module", 1, 0, 0, + (SCM env), + "Return the module of @var{ENV}, a lexical environment.") +#define FUNC_NAME s_scm_env_module { return scm_lookup_closure_module (scm_env_top_level (env)); } +#undef FUNC_NAME /* * C level implementation of the standard eval closure |