;; gl callback loop (define loop (lambda (time) (gl-loop time) (gl:swap-buffers ctx) (callback (+ time 100) 'loop (+ time 1500))))