(bind-func gl_draw_loop (lambda () (gl_render peppino) ;; swap buffers (glfwPollEvents) (glfwSwapBuffers window) ;; set next frame callback (callback (now) gl_draw_loop)))