(define (make-texture gl-id)
  (set-finalizer! (list 'texture gl-id)
                  (lambda (x)
                    (gl:DeleteTextures 1 (u32vector (gl-texture x)))
                    (debug "Deleting: ~a" x))))