+#if SCM_DEBUG_DEPRECATED == 0
+
+SCM
+scm_the_root_module ()
+{
+ scm_c_issue_deprecation_warning ("`scm_the_root_module' is deprecated. "
+ "Use `scm_c_resolve_module (\"guile\") "
+ "instead.");
+
+ return the_root_module ();
+}
+
+static SCM
+scm_module_full_name (SCM name)
+{
+ if (SCM_EQ_P (SCM_CAR (name), scm_sym_app))
+ return name;
+ else
+ return scm_append (SCM_LIST2 (module_prefix, name));
+}
+
+SCM
+scm_make_module (SCM name)
+{
+ scm_c_issue_deprecation_warning ("`scm_make_module' is deprecated. "
+ "Use `scm_c_define_module instead.");
+
+ return scm_apply (SCM_VARIABLE_REF (make_modules_in_var),
+ SCM_LIST2 (scm_the_root_module (),
+ scm_module_full_name (name)),
+ SCM_EOL);
+}
+
+SCM
+scm_ensure_user_module (SCM module)
+{
+ scm_c_issue_deprecation_warning ("`scm_ensure_user_module' is deprecated. "
+ "Use `scm_c_define_module instead.");
+
+ scm_apply (SCM_VARIABLE_REF (beautify_user_module_x_var),
+ SCM_LIST1 (module), SCM_EOL);
+ return SCM_UNSPECIFIED;
+}
+
+SCM
+scm_load_scheme_module (SCM name)
+{
+ scm_c_issue_deprecation_warning ("`scm_load_scheme_module' is deprecated. "
+ "Use `scm_c_resolve_module instead.");
+
+ return scm_apply (SCM_VARIABLE_REF (try_module_autoload_var),
+ SCM_LIST1 (name), SCM_EOL);
+}
+
+#endif
+