* Removed deprecated stuff.

[bpt/guile.git] / libguile / numbers.c

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 1a6ff53..3bead8c 100644 (file)
--- 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"