mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

(scm_env_module): Exported to Scheme.

Browse source
This commit is contained in:
Marius Vollmer 2001-05-25 13:15:57 +00:00
parent 0120801d39
commit e24ca5385a
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/modules.c
View file

@ -262,11 +262,14 @@ scm_lookup_closure_module (SCM proc)
} }
} }
SCM SCM_DEFINE (scm_env_module, "env-module", 1, 0, 0,
scm_env_module (SCM env) (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)); return scm_lookup_closure_module (scm_env_top_level (env));
} }
#undef FUNC_NAME
/* /*
* C level implementation of the standard eval closure * C level implementation of the standard eval closure