From 216936e08542a55c14844abc393ecb29ecc8fed2 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 11 Nov 2018 10:01:49 +0100
Subject: [PATCH] core: Assert g_free in alloc.

* src/mes.c (alloc): Assert g_free.
---
 src/mes.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mes.c b/src/mes.c
index ca9c9bf6..698ebe27 100644
--- a/src/mes.c
+++ b/src/mes.c
@@ -391,6 +391,8 @@ alloc (long n)
 {
   SCM x = g_free;
   g_free += n;
+  if (g_free > ARENA_SIZE)
+    assert (!"alloc: out of memory");
   return x;
 }