From 13dd5a10139e3b72310c28d8fd9aa02ccc5e3020 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 23 Dec 2016 17:05:04 +0100 Subject: [PATCH] core: Remove gc_show. * mes.c (gc_show): Remove. --- mes.c | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/mes.c b/mes.c index f5e766d0..96dd91b1 100644 --- a/mes.c +++ b/mes.c @@ -989,24 +989,6 @@ gc_flip () 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 SCM acons (SCM key, SCM value, SCM alist)