inline bool ly_is_procedure (SCM x) { return scm_is_true (scm_procedure_p (x)); }
inline bool ly_is_port (SCM x) { return scm_is_true (scm_port_p (x)); }
+bool ly_is_rational (SCM);
/*
want to take the address of this function; scm_is_symbol() is a
macro.
Rational
robust_scm2rational (SCM n, Rational rat)
{
- if (scm_is_real (n)
- && (scm_is_true (scm_exact_p (n))
- || scm_is_true (scm_inf_p (n))))
+ if (ly_is_rational (n))
return ly_scm2rational (n);
else
return rat;
}
+bool
+ly_is_rational (SCM n)
+{
+ return (scm_is_real (n)
+ && (scm_is_true (scm_exact_p (n))
+ || scm_is_true (scm_inf_p (n))));
+}
+
SCM
alist_to_hashq (SCM alist)
{