Welcome to the CHICKEN Scheme pasting service

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))))))
[ permalink | raw ]

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))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the one-argument procedure to check if a list is empty?
Visually impaired? Let me spell it for you (wav file) download WAV