use sexp::Sexp;

pub trait SexpIsA {
    fn is_atom(&self) -> bool;

    fn is_list(&self) -> bool;
}

impl SexpIsA for Sexp {
    fn is_atom(&self) -> bool {
        match self {
            Sexp::Atom(_) => true,
            _ => false,
        }
    }

    fn is_list(&self) -> bool {
        match self {
            Sexp::List(_) => true,
            _ => false,
        }
    }
}