diff --git a/include/xo/parser/parser.hpp b/include/xo/parser/parser.hpp
index a9dbc198..deafa708 100644
--- a/include/xo/parser/parser.hpp
+++ b/include/xo/parser/parser.hpp
@@ -12,6 +12,7 @@
 
 namespace xo {
     namespace scm {
+#ifdef OBSOLETE
         // ----- exprir -----
 
         enum class exprirtype {
@@ -66,6 +67,7 @@ namespace xo {
             x.print(os);
             return os;
         }
+#endif
 
         enum class exprstatetype {
             invalid = -1,
@@ -204,10 +206,12 @@ namespace xo {
             void on_typedescr(TypeDescr td,
                               exprstatestack * p_stack,
                               rp<Expression> * p_emit_expr);
+#ifdef OBSOLETE
             /** update exprstate in response to IR (intermediate representation)
              *  from nested parsing task
              **/
             void on_exprir(const exprir & ir, exprstatestack * p_stack, rp<Expression> * p_emit_expr);
+#endif
 
             /** print human-readable representation on @p os **/
             void print(std::ostream & os) const;
diff --git a/src/parser/parser.cpp b/src/parser/parser.cpp
index 9eaba07c..0fbe7946 100644
--- a/src/parser/parser.cpp
+++ b/src/parser/parser.cpp
@@ -19,6 +19,7 @@ namespace xo {
     using xo::reflect::TypeDescr;
 
     namespace scm {
+#ifdef OBSOLETE
         const char *
         exprirtype_descr(exprirtype x) {
             switch(x) {
@@ -43,6 +44,7 @@ namespace xo {
                << xtag("type", xir_type_);
             os << ">";
         }
+#endif
 
         const char *
         exprstatetype_descr(exprstatetype x) {
@@ -652,6 +654,7 @@ namespace xo {
             }
         }
 
+#ifdef OBSOLETE
         void
         exprstate::on_exprir(const exprir & ir,
                              exprstatestack * /*p_stack*/,
@@ -688,6 +691,7 @@ namespace xo {
                 return;
             }
         }
+#endif
 
         void
         exprstate::print(std::ostream & os) const {