(bind-func glfw_init_and_create_compatibility_window
(lambda (width height)
(glfw_init)
;; (glfw_set_compatibility_profile)
(let ((window (glfw_create_window width height)))
(glfwShowWindow window)
(glfwMakeContextCurrent window)
(glfwSwapInterval 1)
(glfwSwapBuffers window)
window)))