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