mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +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_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