(define-library (nitrate) (import (scheme base) (scheme case-lambda) (srfi 225)) (export dto empty-dict backtrack-stack fail setup-backtrack matcher-procedure matcher-procedure? matcher-procedure-proc lambda-matcher define-matcher define-recpat mt match match-rev match-pr b~ _~ fail~ matcher-wrapper if~ if*~ fail~ and~ or~ not~ opt~ as-many~ ?~ inspect~ xfrm~ cut~ =~ =Reps~ signmag~ cons~ cons*~ list~ list-tail~ list-ref~ member-tail~ member~ assoc~ every~ list*~ vector~ vector-ref~) (include "nitrate.scm"))