(bind-func glfw_print_primary_monitor_details
(lambda ()
(let ((monitor (glfwGetPrimaryMonitor)))
(if (not (null? monitor))
(glfw_print_video_mode_details (glfwGetVideoMode monitor))
(printf "Error: Monitor pointer is NULL.\n")))))