guile/guile-core/libguile modules.c modules.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/02/11 10:14:34

Modified files:
        guile-core/libguile: modules.c modules.h 

Log message:
        * modules.h. modules.c (scm_current_module_lookup_closure): New
        function.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/modules.c.diff?r1=1.18&r2=1.19
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/modules.h.diff?r1=1.11&r2=1.12

Patches:
Index: guile/guile-core/libguile/modules.c
diff -u guile/guile-core/libguile/modules.c:1.18 
guile/guile-core/libguile/modules.c:1.19
--- guile/guile-core/libguile/modules.c:1.18    Thu Feb  8 10:48:38 2001
+++ guile/guile-core/libguile/modules.c Sun Feb 11 10:14:34 2001
@@ -144,6 +144,15 @@
   return SCM_MODULE_EVAL_CLOSURE (module);
 }
 
+SCM
+scm_current_module_lookup_closure ()
+{
+  if (scm_module_system_booted_p)
+    return scm_module_lookup_closure (scm_current_module ());
+  else
+    return SCM_BOOL_F;
+}
+
 static SCM resolve_module;
 
 SCM
Index: guile/guile-core/libguile/modules.h
diff -u guile/guile-core/libguile/modules.h:1.11 
guile/guile-core/libguile/modules.h:1.12
--- guile/guile-core/libguile/modules.h:1.11    Thu Feb  8 10:48:38 2001
+++ guile/guile-core/libguile/modules.h Sun Feb 11 10:14:34 2001
@@ -84,6 +84,7 @@
 
 extern SCM scm_the_root_module (void);
 extern SCM scm_current_module (void);
+extern SCM scm_current_module_lookup_closure (void);
 extern SCM scm_interaction_environment (void);
 extern SCM scm_set_current_module (SCM module);
 extern SCM scm_make_module (SCM name);