diff --git a/mes.c b/mes.c
index ad2cd856..bf128479 100644
--- a/mes.c
+++ b/mes.c
@@ -312,24 +312,6 @@ set_env_x (SCM x, SCM e, SCM a)
   return set_cdr_x (p, e);
 }
 
-SCM
-quote (SCM x)
-{
-  return cons (cell_symbol_quote, x);
-}
-
-SCM
-quasiquote (SCM x)
-{
-  return cons (cell_symbol_quasiquote, x);
-}
-
-SCM
-quasisyntax (SCM x)
-{
-  return cons (cell_symbol_quasisyntax, x);
-}
-
 SCM
 pairlis (SCM x, SCM y, SCM a)
 {