Generator を返す glob

use-callcc.scm

(define (gglob2 patterns . opts)
  (define (cont)
    (let/cc outer-cont
      (apply glob-fold patterns
             (lambda (curr _)
               (let/cc inner-cont
                 (set! cont inner-cont)
                 (outer-cont curr)))
             '() opts)
      (set! cont (lambda () (eof-object)))
      (eof-object)))
  (lambda () (cont)))

use-generate.scm

(use gauche.generator)

(define (gglob patterns . opts)
  (generate
    (lambda (yield)
      (apply glob-fold patterns
             (lambda (curr _) (yield curr))
             '() opts))))

use-partcont.scm

(use gauche.partcont)

(define (gglob patterns . opts)
  (define (cont)
    (reset
      (apply glob-fold patterns
             (lambda (curr _)
               (shift k (set! cont k) curr))
             '() opts)
      (set! cont (lambda () (eof-object)))
      (eof-object)))
  (lambda () (cont)))