diff --git a/mes.c b/mes.c
index 0c0f12c3..ad2cd856 100644
--- a/mes.c
+++ b/mes.c
@@ -1114,12 +1114,6 @@ mes_environment () ///((internal))
   return mes_stack (a);
 }
 
-SCM
-make_lambda (SCM args, SCM body)
-{
-  return cons (cell_symbol_lambda, cons (args, body));
-}
-
 SCM
 make_closure (SCM args, SCM body, SCM a)
 {