(bind-func gui_keyrelease_p (lambda (key) (= (glfwGetKey (GUI_window EXTEMPORE_GUI) key) GLFW_RELEASE)))