(bind-func Texture_delete (lambda (tex:Texture) (let ((id:GLuint* (salloc))) (pset! id 0 tex) (glDeleteTextures 1 id) (gl_print_error "Error deleting Texture"))))