set-finalizer!

set-finalizer! pasted by iisjmii on Tue Aug 21 16:02:47 2012

(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))))))

try that added by DerGuteMoritz on Tue Aug 21 16:05:13 2012

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