summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c48
1 files changed, 24 insertions, 24 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index c3b8fdedd..28253c767 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -95,7 +95,7 @@
-GUILE_PROC (scm_exact_p, "exact?", 1, 0, 0,
+SCM_DEFINE (scm_exact_p, "exact?", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_exact_p
@@ -110,7 +110,7 @@ GUILE_PROC (scm_exact_p, "exact?", 1, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_odd_p, "odd?", 1, 0, 0,
+SCM_DEFINE (scm_odd_p, "odd?", 1, 0, 0,
(SCM n),
"")
#define FUNC_NAME s_scm_odd_p
@@ -128,7 +128,7 @@ GUILE_PROC (scm_odd_p, "odd?", 1, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_even_p, "even?", 1, 0, 0,
+SCM_DEFINE (scm_even_p, "even?", 1, 0, 0,
(SCM n),
"")
#define FUNC_NAME s_scm_even_p
@@ -584,7 +584,7 @@ Example:
}
#undef FUNC_NAME
-GUILE_PROC (scm_logtest, "logtest", 2, 0, 0,
+SCM_DEFINE (scm_logtest, "logtest", 2, 0, 0,
(SCM n1, SCM n2),
"")
#define FUNC_NAME s_scm_logtest
@@ -597,7 +597,7 @@ GUILE_PROC (scm_logtest, "logtest", 2, 0, 0,
#undef FUNC_NAME
-GUILE_PROC (scm_logbit_p, "logbit?", 2, 0, 0,
+SCM_DEFINE (scm_logbit_p, "logbit?", 2, 0, 0,
(SCM n1, SCM n2),
"")
#define FUNC_NAME s_scm_logbit_p
@@ -665,7 +665,7 @@ GUILE_PROC1 (scm_logxor, "logxor", scm_tc7_asubr,
}
#undef FUNC_NAME
-GUILE_PROC (scm_logtest, "logtest", 2, 0, 0,
+SCM_DEFINE (scm_logtest, "logtest", 2, 0, 0,
(SCM n1, SCM n2),
"@example
(logtest j k) @equiv{} (not (zero? (logand j k)))
@@ -682,7 +682,7 @@ GUILE_PROC (scm_logtest, "logtest", 2, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_logbit_p, "logbit?", 2, 0, 0,
+SCM_DEFINE (scm_logbit_p, "logbit?", 2, 0, 0,
(SCM n1, SCM n2),
"@example
(logbit? index j) @equiv{} (logtest (integer-expt 2 index) j)
@@ -703,7 +703,7 @@ GUILE_PROC (scm_logbit_p, "logbit?", 2, 0, 0,
#undef FUNC_NAME
#endif
-GUILE_PROC (scm_lognot, "lognot", 1, 0, 0,
+SCM_DEFINE (scm_lognot, "lognot", 1, 0, 0,
(SCM n),
"Returns the integer which is the 2s-complement of the integer argument.
@@ -722,7 +722,7 @@ Example:
}
#undef FUNC_NAME
-GUILE_PROC (scm_integer_expt, "integer-expt", 2, 0, 0,
+SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0,
(SCM z1, SCM z2),
"Returns @var{n} raised to the non-negative integer exponent @var{k}.
@@ -763,7 +763,7 @@ Example:
}
#undef FUNC_NAME
-GUILE_PROC (scm_ash, "ash", 2, 0, 0,
+SCM_DEFINE (scm_ash, "ash", 2, 0, 0,
(SCM n, SCM cnt),
"Returns an integer equivalent to
@code{(inexact->exact (floor (* @var{int} (expt 2 @var{count}))))}.@refill
@@ -806,7 +806,7 @@ Example:
#undef FUNC_NAME
/* GJB:FIXME: do not use SCMs as integers! */
-GUILE_PROC (scm_bit_extract, "bit-extract", 3, 0, 0,
+SCM_DEFINE (scm_bit_extract, "bit-extract", 3, 0, 0,
(SCM n, SCM start, SCM end),
"Returns the integer composed of the @var{start} (inclusive) through
@var{end} (exclusive) bits of @var{n}. The @var{start}th bit becomes
@@ -845,7 +845,7 @@ static const char scm_logtab[] = {
0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4
};
-GUILE_PROC (scm_logcount, "logcount", 1, 0, 0,
+SCM_DEFINE (scm_logcount, "logcount", 1, 0, 0,
(SCM n),
"Returns the number of bits in integer @var{n}. If integer is positive,
the 1-bits in its binary representation are counted. If negative, the
@@ -895,7 +895,7 @@ static const char scm_ilentab[] = {
0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4
};
-GUILE_PROC (scm_integer_length, "integer-length", 1, 0, 0,
+SCM_DEFINE (scm_integer_length, "integer-length", 1, 0, 0,
(SCM n),
"Returns the number of bits neccessary to represent @var{n}.
@@ -1856,7 +1856,7 @@ big2str (SCM b, unsigned int radix)
#endif
-GUILE_PROC (scm_number_to_string, "number->string", 1, 1, 0,
+SCM_DEFINE (scm_number_to_string, "number->string", 1, 1, 0,
(SCM x, SCM radix),
"")
#define FUNC_NAME s_scm_number_to_string
@@ -2458,7 +2458,7 @@ scm_istring2number (char *str, long len, long radix)
}
-GUILE_PROC (scm_string_to_number, "string->number", 1, 1, 0,
+SCM_DEFINE (scm_string_to_number, "string->number", 1, 1, 0,
(SCM str, SCM radix),
"")
#define FUNC_NAME s_scm_string_to_number
@@ -2542,7 +2542,7 @@ scm_floequal (SCM x, SCM y)
SCM_REGISTER_PROC (s_number_p, "number?", 1, 0, 0, scm_number_p);
-GUILE_PROC (scm_number_p, "complex?", 1, 0, 0,
+SCM_DEFINE (scm_number_p, "complex?", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_number_p
@@ -2568,7 +2568,7 @@ GUILE_PROC (scm_number_p, "complex?", 1, 0, 0,
SCM_REGISTER_PROC (s_real_p, "real?", 1, 0, 0, scm_real_p);
-GUILE_PROC (scm_real_p, "rational?", 1, 0, 0,
+SCM_DEFINE (scm_real_p, "rational?", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_real_p
@@ -2589,7 +2589,7 @@ GUILE_PROC (scm_real_p, "rational?", 1, 0, 0,
-GUILE_PROC (scm_integer_p, "integer?", 1, 0, 0,
+SCM_DEFINE (scm_integer_p, "integer?", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_integer_p
@@ -2618,7 +2618,7 @@ GUILE_PROC (scm_integer_p, "integer?", 1, 0, 0,
#endif /* SCM_FLOATS */
-GUILE_PROC (scm_inexact_p, "inexact?", 1, 0, 0,
+SCM_DEFINE (scm_inexact_p, "inexact?", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_inexact_p
@@ -4244,7 +4244,7 @@ scm_two_doubles (SCM z1, SCM z2, const char *sstring, struct dpair *xy)
-GUILE_PROC (scm_sys_expt, "$expt", 2, 0, 0,
+SCM_DEFINE (scm_sys_expt, "$expt", 2, 0, 0,
(SCM z1, SCM z2),
"")
#define FUNC_NAME s_scm_sys_expt
@@ -4257,7 +4257,7 @@ GUILE_PROC (scm_sys_expt, "$expt", 2, 0, 0,
-GUILE_PROC (scm_sys_atan2, "$atan2", 2, 0, 0,
+SCM_DEFINE (scm_sys_atan2, "$atan2", 2, 0, 0,
(SCM z1, SCM z2),
"")
#define FUNC_NAME s_scm_sys_atan2
@@ -4270,7 +4270,7 @@ GUILE_PROC (scm_sys_atan2, "$atan2", 2, 0, 0,
-GUILE_PROC (scm_make_rectangular, "make-rectangular", 2, 0, 0,
+SCM_DEFINE (scm_make_rectangular, "make-rectangular", 2, 0, 0,
(SCM z1, SCM z2),
"")
#define FUNC_NAME s_scm_make_rectangular
@@ -4283,7 +4283,7 @@ GUILE_PROC (scm_make_rectangular, "make-rectangular", 2, 0, 0,
-GUILE_PROC (scm_make_polar, "make-polar", 2, 0, 0,
+SCM_DEFINE (scm_make_polar, "make-polar", 2, 0, 0,
(SCM z1, SCM z2),
"")
#define FUNC_NAME s_scm_make_polar
@@ -4421,7 +4421,7 @@ scm_angle (SCM z)
}
-GUILE_PROC (scm_inexact_to_exact, "inexact->exact", 1, 0, 0,
+SCM_DEFINE (scm_inexact_to_exact, "inexact->exact", 1, 0, 0,
(SCM z),
"")
#define FUNC_NAME s_scm_inexact_to_exact