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