summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-06-12 12:34:52 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-06-12 12:34:52 +0000
commit5c56ebe15b9b87d8f99b970a4719cb19e8b9b10b (patch)
tree3775932339ad2a50a5be5588411e531a158c8393
parent9b26d381c1abe96e206deeab0ea866562f6cb59d (diff)
downloadguile-5c56ebe15b9b87d8f99b970a4719cb19e8b9b10b.tar.gz
Deprecated everything.
-rw-r--r--libguile/gh.h4
-rw-r--r--libguile/gh_data.c4
-rw-r--r--libguile/gh_eval.c4
-rw-r--r--libguile/gh_funcs.c4
-rw-r--r--libguile/gh_init.c4
-rw-r--r--libguile/gh_io.c4
-rw-r--r--libguile/gh_list.c4
-rw-r--r--libguile/gh_predicates.c4
8 files changed, 32 insertions, 0 deletions
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"