* numbers.h (scm_dblproc): deprecation expired - removed.

  (SCM_UNEGFIXABLE): deprecation expired - removed.
  (SCM_FLOBUFLEN): deprecation expired - removed.
  (SCM_INEXP): deprecation expired - removed.
  (SCM_CPLXP): deprecation expired - removed.
  (SCM_REAL): deprecation expired - removed.
  (SCM_IMAG): deprecation expired - removed.
  (SCM_REALPART): deprecation expired - removed.
  (scm_makdbl): deprecation expired - removed.
  (SCM_SINGP): deprecation expired - removed.
  (SCM_NUM2DBL): deprecation expired - removed.
  (SCM_NO_BIGDIG): deprecation expired - removed.

diff --git a/libguile/numbers.h b/libguile/numbers.h
index c8e00b4..23df0d7 100644 (file)
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -303,33 +303,6 @@ extern unsigned long scm_num2ulong (SCM num, unsigned long int pos,
                                     const char *s_caller);
 extern void scm_init_numbers (void);
 
-\f
-
-#if (SCM_DEBUG_DEPRECATED == 0)
-
-typedef struct scm_dblproc
-{
-  char *scm_string;
-  double (*cproc) ();
-} scm_dblproc;
-
-#define SCM_UNEGFIXABLE(n) ((n) <= -SCM_MOST_NEGATIVE_FIXNUM)
-#define SCM_FLOBUFLEN (10+2*(sizeof(double)/sizeof(char)*SCM_CHAR_BIT*3+9)/10)
-#define SCM_INEXP(x) SCM_INEXACTP(x)
-#define SCM_CPLXP(x) SCM_COMPLEXP(x)
-#define SCM_REAL(x) (SCM_SLOPPY_REALP (x) ? SCM_REAL_VALUE (x) : SCM_COMPLEX_REAL (x))
-#define SCM_IMAG(x) (SCM_SLOPPY_REALP (x) ? 0.0 : SCM_COMPLEX_IMAG (x))
-#define SCM_REALPART(x) (SCM_SLOPPY_REALP (x) ? SCM_REAL_VALUE (x) : SCM_COMPLEX_REAL (x))
-#define scm_makdbl scm_make_complex
-#define SCM_SINGP(x) 0
-#define SCM_NUM2DBL(x) scm_num2dbl(x, "SCM_NUM2DBL")
-
-#ifndef SCM_BIGDIG
-# define SCM_NO_BIGDIG
-#endif
-
-#endif  /* SCM_DEBUG_DEPRECATED == 0 */
-
 #endif  /* NUMBERSH */
 
 /*