Remove make_function.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 15:02:36 +0000 (16:02 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 15:02:36 +0000 (16:02 +0100)
* mes.c (make_function): Remove.

mes.c

diff --git a/mes.c b/mes.c
index c2a2cebba28a89ad49af41b99e7b3bca6eff0c67..8101648629d70df0f45f70ab79f1571f0768d745 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -683,16 +683,6 @@ make_char (int x)
   return make_cell (tmp_num, tmp_num2, tmp_num2);
 }
 
-SCM
-make_function (SCM name, SCM id, SCM arity)
-{
-  g_cells[tmp_num3].value = FUNCTION;
-  function *f = (function*)malloc (sizeof (function));
-  f->arity = VALUE (arity);
-  g_cells[tmp_num4].value = (long)f;
-  return make_cell (tmp_num3, name, tmp_num4);
-}
-
 SCM
 make_number (int x)
 {