#lang scheme (require scheme/provide "apr.ss" "subr.ss" "fs.ss" "client.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")) (matching-identifiers-out #rx"^(?!^_)" (all-from-out "client.ss")))