" left or down, @code{1}@tie{}represents right or up, and @code{0}"
" represents a neutral direction.")
{
- if (scm_is_number (s))
+ if (scm_is_integer (s))
{
int i = scm_to_int (s);
return (i >= -1 && i <= 1) ? SCM_BOOL_T : SCM_BOOL_F;
SCM ly_assoc_prepend_x (SCM alist, SCM key, SCM val);
inline bool ly_is_fraction (SCM x) { return SCM_FRACTIONP (x) || scm_is_integer (x); }
-inline bool ly_is_list (SCM x) { return SCM_NFALSEP (scm_list_p (x)); }
+inline bool ly_is_list (SCM x) { return scm_is_true (scm_list_p (x)); }
inline bool ly_cheap_is_list (SCM x) { return scm_is_pair (x) || x == SCM_EOL; }
-inline bool ly_is_procedure (SCM x) { return SCM_NFALSEP (scm_procedure_p (x)); }
-inline bool ly_is_port (SCM x) { return SCM_NFALSEP (scm_port_p (x)); }
+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)); }
/*
want to take the address of this function; scm_is_symbol() is a
inline bool ly_is_equal (SCM x, SCM y)
{
- return SCM_NFALSEP (scm_equal_p (x, y));
+ return scm_is_true (scm_equal_p (x, y));
}
-inline bool ly_scm2bool (SCM x) { return SCM_NFALSEP (x); }
+inline bool ly_scm2bool (SCM x) { return scm_is_true (x); }
inline char ly_scm2char (SCM x) { return (char)SCM_CHAR (x); }
-inline SCM ly_bool2scm (bool x) { return SCM_BOOL (x); }
+inline SCM ly_bool2scm (bool x) { return scm_from_bool (x); }
inline SCM ly_append2 (SCM x1, SCM x2)
{
bool
is_axis (SCM s)
{
- if (scm_is_number (s))
+ if (scm_is_integer (s))
{
int i = scm_to_int (s);
return i == 0 || i == 1;
Interval
ly_scm2interval (SCM p)
{
- return Interval (scm_to_double (scm_car (p)), scm_to_double (scm_cdr (p)));
+ return Interval (scm_to_double (scm_car (p)),
+ scm_to_double (scm_cdr (p)));
}
Drul_array<Real>
ALIST
*/
+// This one is used nowhere.
bool
-alist_equal_p (SCM a, SCM b)
+ly_is_alist_equal (SCM a, SCM b)
{
- for (SCM s = a;
- scm_is_pair (s); s = scm_cdr (s))
+ if (!scm_is_pair (a) || !scm_is_pair (b))
+ return false;
+ for (SCM s = a; scm_is_pair (s); s = scm_cdr (s))
{
SCM key = scm_caar (s);
SCM val = scm_cdar (s);
SCM l = scm_assoc (key, b);
- if (l == SCM_BOOL_F
- || !ly_is_equal (scm_cdr (l), val))
-
+ if (scm_is_false (l) || !ly_is_equal (scm_cdr (l), val))
return false;
}
return true;