summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c88
1 files changed, 0 insertions, 88 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 1a6ff53c1..3bead8ce6 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -4454,94 +4454,6 @@ scm_init_numbers ()
#endif
}
-#if (SCM_DEBUG_DEPRECATED == 0)
-
-SCM
-scm_mkbig (size_t len, int sign)
-{
- scm_c_issue_deprecation_warning ("`scm_mkbig' is deprecated. "
- "Use `scm_i_mkbig' instead.");
- return scm_i_mkbig (len, sign);
-}
-
-SCM
-scm_big2inum (SCM b, size_t l)
-{
- scm_c_issue_deprecation_warning ("`scm_big2inum' is deprecated. "
- "Use `scm_i_big2num' instead.");
- return scm_i_big2inum (b, l);
-}
-
-SCM
-scm_adjbig (SCM b, size_t nlen)
-{
- scm_c_issue_deprecation_warning ("`scm_adjbig' is deprecated. "
- "Use `scm_i_adjbig' instead.");
- return scm_i_adjbig (b, nlen);
-}
-
-SCM
-scm_normbig (SCM b)
-{
- scm_c_issue_deprecation_warning ("`scm_normbig' is deprecated. "
- "Use `scm_i_normbig' instead.");
- return scm_i_normbig (b);
-}
-
-SCM
-scm_copybig (SCM b, int sign)
-{
- scm_c_issue_deprecation_warning ("`scm_copybig' is deprecated. "
- "Use `scm_i_copybig' instead.");
- return scm_i_copybig (b, sign);
-}
-
-SCM
-scm_2ulong2big (unsigned long *np)
-{
- unsigned long n;
- size_t i;
- SCM_BIGDIG *digits;
- SCM ans;
-
- ans = scm_i_mkbig (2 * SCM_DIGSPERLONG, 0);
- digits = SCM_BDIGITS (ans);
-
- n = np[0];
- for (i = 0; i < SCM_DIGSPERLONG; ++i)
- {
- digits[i] = SCM_BIGLO (n);
- n = SCM_BIGDN ((unsigned long) n);
- }
- n = np[1];
- for (i = 0; i < SCM_DIGSPERLONG; ++i)
- {
- digits[i + SCM_DIGSPERLONG] = SCM_BIGLO (n);
- n = SCM_BIGDN ((unsigned long) n);
- }
- return ans;
-}
-
-SCM
-scm_dbl2big (double d)
-{
- scm_c_issue_deprecation_warning ("`scm_dbl2big' is deprecated. "
- "Use `scm_dbl2num' instead,"
- "or `scm_i_dbl2big'.");
- return scm_i_dbl2big (d);
-}
-
-double
-scm_big2dbl (SCM b)
-{
- scm_c_issue_deprecation_warning ("`scm_big2dbl' is deprecated. "
- "Use `scm_num2dbl' instead,"
- "or `scm_i_big2dbl'.");
- return scm_i_big2dbl (b);
-}
-
-#endif
-
/*
Local Variables:
c-file-style: "gnu"