1 files changed, 0 insertions, 24 deletions
diff --git a/tuplr.hpp b/tuplr.hpp
index 97a5988..f8ef33b 100644
--- a/tuplr.hpp
+++ b/tuplr.hpp
@@ -410,30 +410,6 @@ struct APrimitive : public ACall {
 	CValue compile(CEnv& cenv);
 };
 
-/// Cons special form, e.g. "(cons 1 2)"
-struct AConsCall : public ACall {
-	AConsCall(const SExp& e, const ATuple& t) : ACall(e, t) {}
-	AType* functionType(CEnv& cenv);
-	void   constrain(TEnv& tenv, Constraints& c) const;
-	void   lift(CEnv& cenv);
-	CValue compile(CEnv& cenv);
-	static Funcs funcs;
-};
-
-/// Car special form, e.g. "(car p)"
-struct ACarCall : public ACall {
-	ACarCall(const SExp& e, const ATuple& t) : ACall(e, t) {}
-	void   constrain(TEnv& tenv, Constraints& c) const;
-	CValue compile(CEnv& cenv);
-};
-
-/// Cdr special form, e.g. "(cdr p)"
-struct ACdrCall : public ACall {
-	ACdrCall(const SExp& e, const ATuple& t) : ACall(e, t) {}
-	void   constrain(TEnv& tenv, Constraints& c) const;
-	CValue compile(CEnv& cenv);
-};
-
 
 /***************************************************************************
  * Parser: S-Expressions (SExp) -> AST Nodes (AST)                         *