guile/guile-core/libguile dynl.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/02 18:03:31

Modified files:
        guile-core/libguile: dynl.c 

Log message:
        (scm_register_module_xxx, scm_registered_modules,
        scm_clear_registered_modules): Deprecated.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/dynl.c.diff?cvsroot=OldCVS&tr1=1.58&tr2=1.59&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/dynl.c
diff -u guile/guile-core/libguile/dynl.c:1.58 
guile/guile-core/libguile/dynl.c:1.59
--- guile/guile-core/libguile/dynl.c:1.58       Wed May 23 17:50:44 2001
+++ guile/guile-core/libguile/dynl.c    Sat Jun  2 18:03:31 2001
@@ -129,6 +129,8 @@
   free (argv);
 }
 
+#if SCM_DEBUG_DEPRECATED == 0
+
 /* Module registry
  */
 
@@ -150,6 +152,9 @@
 {
   struct moddata *md;
 
+  scm_c_issue_deprecation_warning 
+    ("`scm_register_module_xxx' is deprecated.  Use extensions instead.");
+
   /* XXX - should we (and can we) DEFER_INTS here? */
 
   for (md = registered_mods; md; md = md->link)
@@ -186,6 +191,9 @@
   SCM res;
   struct moddata *md;
 
+  scm_c_issue_deprecation_warning 
+    ("`registered-modules' is deprecated.  Use extensions instead.");
+
   res = SCM_EOL;
   for (md = registered_mods; md; md = md->link)
     res = scm_cons (scm_cons (scm_makfrom0str (md->module_name),
@@ -206,6 +214,9 @@
 {
   struct moddata *md1, *md2;
 
+  scm_c_issue_deprecation_warning 
+    ("`c-clear-registered-modules' is deprecated.  Use extensions instead.");
+
   SCM_DEFER_INTS;
 
   for (md1 = registered_mods; md1; md1 = md2)
@@ -219,6 +230,8 @@
   return SCM_UNSPECIFIED;
 }
 #undef FUNC_NAME
+
+#endif /* !SCM_DEBUG_DEPRECATED */
 
 /* Dispatch to the system dependent files
  *