(bind-func gl_load_image (lambda (path id) (let ((texid (SOIL_load_OGL_texture path SOIL_LOAD_AUTO id (+ SOIL_FLAG_MIPMAPS SOIL_FLAG_INVERT_Y)))) (if (= texid 0) (printf "Error loading: %s\n" path)) texid)))