#lang scheme (require scheme/provide "apr.ss" "subr.ss" "fs.ss") (provide (struct-out exn:fail:apr) current-pool make-pool pool? pooled-pointer? pointer-pool (struct-out exn:fail:svn) genuuid (matching-identifiers-out #rx"(?!^_)" (all-from-out "fs.ss")))