#lang scheme/base

(define collect-thread #f)

(define (collect-regularly (delay 300))
  (when (not collect-thread)
    (set! collect-thread
          (thread
           (λ ()
             (dynamic-wind
              void
              (λ ()
                (let eternity ()
                  (collect-garbage)
                  (sleep delay)
                  (eternity)))
              (λ ()
                (set! collect-thread #f))))))))

(provide collect-regularly)