main.ss
#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")))