core: Remove gc_show.

* mes.c (gc_show): Remove.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-23 17:05:04 +01:00
parent 97dfc3c981
commit 13dd5a1013

18
mes.c
View file

@ -989,24 +989,6 @@ gc_flip ()
return stack; return stack;
} }
SCM
gc_show ()
{
fprintf (stderr, "cells: ");
scm *t = g_cells;
display_ (stderr, -1);
fprintf (stderr, "\n");
if (g_news)
{
fprintf (stderr, "news: ");
g_cells = g_news;
display_ (stderr, -1);
fprintf (stderr, "\n");
}
g_cells = t;
return cell_unspecified;
}
// Environment setup // Environment setup
SCM SCM
acons (SCM key, SCM value, SCM alist) acons (SCM key, SCM value, SCM alist)