gistfile1.scm

(define (check-and-clean-textures)
  "Loop over a guardian object and clean up its objects"
  "until it returns #f"
  (do ((i (*texture-guardian*) (*texture-guardian*)))
    ((equal? i #f))
    (gl-delete-framebuffers 1 i)))

(define (check-and-clean-textures-2)
  "Loop over a guardian object and clean up its objects"
  "until it returns #f"
  (let ((i (*texture-guardian*)))
    (if (equal? i #f)
      #t
      (begin
        (gl-delete-framebuffers 1 i)
        (check-and-clean-textures-2)))))