From 5c56ebe15b9b87d8f99b970a4719cb19e8b9b10b Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 12 Jun 2005 12:34:52 +0000
Subject: [PATCH] Deprecated everything.

---
 libguile/gh.h            | 4 ++++
 libguile/gh_data.c       | 4 ++++
 libguile/gh_eval.c       | 4 ++++
 libguile/gh_funcs.c      | 4 ++++
 libguile/gh_init.c       | 4 ++++
 libguile/gh_io.c         | 4 ++++
 libguile/gh_list.c       | 4 ++++
 libguile/gh_predicates.c | 4 ++++
 8 files changed, 32 insertions(+)

diff --git a/libguile/gh.h b/libguile/gh.h
index 4898f71bd..e7dd9ea1d 100644
--- a/libguile/gh.h
+++ b/libguile/gh.h
@@ -23,6 +23,8 @@
  */
 #include <libguile.h>
 
+#if SCM_ENABLE_DEPRECATED
+
 #ifdef __cplusplus
 extern "C" {
 #endif
@@ -230,6 +232,8 @@ SCM_API void gh_newline (void);
 }
 #endif
 
+#endif
+
 #endif /* __GH_H */
 
 /*
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 39c3de152..d0423f7dd 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -28,6 +28,8 @@
 
 #include <assert.h>
 
+#if SCM_ENABLE_DEPRECATED
+
 /* data conversion C->scheme */
 
 SCM 
@@ -648,6 +650,8 @@ gh_module_lookup (SCM module, const char *sname)
 }
 #undef FUNC_NAME
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"
diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c
index be7af5104..391ff4d26 100644
--- a/libguile/gh_eval.c
+++ b/libguile/gh_eval.c
@@ -20,6 +20,8 @@
 
 #include "libguile/gh.h"
 
+#if SCM_ENABLE_DEPRECATED
+
 typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf);
 
 /* Evaluate the string; toss the value.  */
@@ -94,6 +96,8 @@ gh_eval_file_with_standard_handler (const char *scheme_code)
   return gh_eval_file_with_catch (scheme_code, gh_standard_handler);
 }
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"
diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c
index c789ce097..28e6dc647 100644
--- a/libguile/gh_funcs.c
+++ b/libguile/gh_funcs.c
@@ -21,6 +21,8 @@
 
 #include "libguile/gh.h"
 
+#if SCM_ENABLE_DEPRECATED
+
 /* allows you to define new scheme primitives written in C */
 SCM
 gh_new_procedure (const char *proc_name, SCM (*fn) (),
@@ -143,6 +145,8 @@ gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3)
   return scm_apply (proc, arg1, scm_cons2 (arg2, arg3, scm_listofnull));
 }
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"
diff --git a/libguile/gh_init.c b/libguile/gh_init.c
index 97c967cfd..66cfedc66 100644
--- a/libguile/gh_init.c
+++ b/libguile/gh_init.c
@@ -22,6 +22,8 @@
 
 #include "libguile/gh.h"
 
+#if SCM_ENABLE_DEPRECATED
+
 typedef void (*main_prog_t) (int argc, char **argv);
 typedef void (*repl_prog_t) (int argc, char **argv);
 
@@ -80,6 +82,8 @@ gh_standard_handler (void *data SCM_UNUSED, SCM tag, SCM throw_args SCM_UNUSED)
   return SCM_BOOL_F;
 }
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"
diff --git a/libguile/gh_io.c b/libguile/gh_io.c
index 057d4be53..28864ad15 100644
--- a/libguile/gh_io.c
+++ b/libguile/gh_io.c
@@ -18,6 +18,8 @@
 
 #include "libguile/gh.h"
 
+#if SCM_ENABLE_DEPRECATED
+
 void 
 gh_display (SCM x)
 {
@@ -36,6 +38,8 @@ gh_newline ()
   scm_newline (scm_current_output_port ());
 }
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"
diff --git a/libguile/gh_list.c b/libguile/gh_list.c
index 2d8764a7e..e9f123124 100644
--- a/libguile/gh_list.c
+++ b/libguile/gh_list.c
@@ -20,6 +20,8 @@
 
 #include "libguile/gh.h"
 
+#if SCM_ENABLE_DEPRECATED
+
 /* returns the length of a list */
 unsigned long 
 gh_length (SCM l)
@@ -166,6 +168,8 @@ gh_set_cdr_x(SCM pair, SCM value)
   return scm_set_cdr_x(pair, value);
 }
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"
diff --git a/libguile/gh_predicates.c b/libguile/gh_predicates.c
index b0d0c1b49..f36aedf26 100644
--- a/libguile/gh_predicates.c
+++ b/libguile/gh_predicates.c
@@ -20,6 +20,8 @@
 
 #include "libguile/gh.h"
 
+#if SCM_ENABLE_DEPRECATED
+
 /* type predicates: tell you if an SCM object has a given type */
 int 
 gh_boolean_p (SCM val)
@@ -110,6 +112,8 @@ gh_null_p(SCM l)
   return (scm_is_true(scm_null_p(l)));
 }
 
+#endif /* SCM_ENABLE_DEPRECATED */
+
 /*
   Local Variables:
   c-file-style: "gnu"