Example #1
0
static SCM sqmatrix_p(SCM obj)
{
     return ctl_convert_boolean_to_scm(SQMATRIX_P(obj));
}
Example #2
0
static SCM evectmatrix_p(SCM obj)
{
     return ctl_convert_boolean_to_scm(EVECTMATRIX_P(obj));
}
Example #3
0
static SCM cscalar_field_p(SCM obj)
{
     return ctl_convert_boolean_to_scm(CSCALAR_FIELD_P(obj));
}
Example #4
0
static SCM cvector_field_p(SCM obj)
{
     return ctl_convert_boolean_to_scm(CVECTOR_FIELD_P(obj));
}
Example #5
0
static SCM field_p(SCM obj)
{
     return ctl_convert_boolean_to_scm(FIELD_P(obj));
}