SCM fullscreen = SCM_BOOL_F;
SCM stencilbuffer = SCM_BOOL_F;
SCM vsync = SCM_BOOL_F;
- SCM receiver = SCM_BOOL_F;
+ SCM receiver = SCM_UNDEFINED;
scm_c_bind_keyword_arguments ("create-device", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("device-type"), &device_type,
scm_to_bool (fullscreen),
scm_to_bool (stencilbuffer),
scm_to_bool (vsync),
- scm_is_false (receiver) ? 0 : unwrap_event_receiver (receiver));
+ receiver == SCM_UNDEFINED ? 0 : unwrap_event_receiver (receiver));
return wrap_device (device);
}