Module Ast_lisp

type info = Parse_info.t
type tok = info
type 'a wrap = 'a * tok
type 'a paren = tok * 'a * tok
type sexp =
| Sexp of sexp list paren
| Atom of atom
| Special of special wrap * sexp
and special =
| Quote
| BackQuote
| Comma
| At
and atom =
| Number of string wrap
| String of string wrap
| Id of string wrap
type program = sexp list