;; standard impromptu callback (define opengl-loop (lambda (degree) (gl_print_error) (gl_render degree) (gl:swap-buffers glctx) (callback (+ (now) 1000) 'opengl-loop (+ degree .5))))