(scm_env_module): Exported to Scheme.

diff --git a/libguile/modules.c b/libguile/modules.c
index fb2d456..4399257 100644 (file)
--- 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