artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Remove make_function.

Browse source 
* mes.c (make_function): Remove.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-23 16:02:36 +01:00
parent 89e78bec77
commit c2a12c4f34
1 changed files with 0 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mes.c
View file

@ -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)
{