(define (pump-mmap-guardian)
  (let ((bv (%mmap-guardian)))  ;SIGSEV if bv's pointer was munmap'd
    (when bv
      (if (unmapped-bytevector? bv)
          (hashq-remove! %unmapped-bytevectors bv)
          (munmap bv))
      (pump-mmap-guardian))))

Generated by apteryx using scpaste at Mon Oct 27 23:39:06 2025. JST. (original)