(bind-func VBO_delete (lambda (vbo:VBO*) (let ((id:GLuint* (salloc))) (pset! id 0 (VBO_id vbo)) (glDeleteBuffers 1 id) (gl_print_error "Error deleting VBO") (free vbo))))