#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")))