scm_c_bind_keyword_arguments ("create-device", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("device-type"), &device_type,
scm_c_bind_keyword_arguments ("create-device", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("device-type"), &device_type,