Exemple #1
0
static SCM scm_bind_key(SCM mod_mask, SCM key, SCM proc)
{
    xcb_keysym_t keysym;
    if (scm_is_true(scm_number_p(key)))
        keysym = scm_to_uint32(key);
    else if (scm_is_true(scm_string_p(key))) {
        scm_dynwind_begin(0);
        char *c_key = scm_to_locale_string(key);
        scm_dynwind_free(c_key);
        keysym = get_keysym(c_key);
        scm_dynwind_end();
    }
    else
        return SCM_UNSPECIFIED;
    bind_key(scm_to_uint16(mod_mask), keysym, proc);
    return SCM_UNSPECIFIED;
}
Exemple #2
0
/* FIXME: Is this right? */
int scm_is_complex(SCM x) {
	return scm_number_p(x) == SCM_BOOL_T;
}
Exemple #3
0
int scm_is_number(SCM x) {
	return scm_number_p(x) == SCM_BOOL_T;
}