From a8517ba3ceb21f3fb5c452226d5ca6a3981ae852 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 8 Sep 2019 20:39:34 +0200
Subject: [PATCH] add sanity check into compile_function

---
 src/comp.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/comp.c b/src/comp.c
index c2bd135495e..8422c7d3431 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -2698,6 +2698,7 @@ compile_function (Lisp_Object func)
       Lisp_Object block_name = HASH_KEY (ht, i);
       Lisp_Object block = HASH_VALUE (ht, i);
       Lisp_Object insns = FUNCALL1 (comp-block-insns, block);
+      eassert (!NILP (block) && !NILP (insns));
 
       comp.block = retrive_block (block_name);
       while (CONSP (insns))
-- 
2.39.5