Module Ast_lisp

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