(bind-func xtm_background_colour (lambda (r:float g b a) (set! XTM_BACKGROUND_COLOUR (vector r g b a)) void))