(define gl-loop (lambda (time delta-t) (gl_render) (gl:swap-buffers *gl-ctx*) (callback (+ time (* *second* delta-t) 0.5) 'gl-loop (+ time (* *second* delta-t)) delta-t)))