(bind-func glfw_init (lambda () (let ((res (glfwInit))) (if (= res 1) (begin (glfwSetErrorCallback (convert (get_native_fptr glfw_error_callback))) res) res))))