From ff97c556c07df278e39d957526f744ba22a845f8 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 12 Nov 2019 16:29:48 +0100
Subject: [PATCH] WIP: variable

---
 src/eval-apply.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/eval-apply.c b/src/eval-apply.c
index 597bde43..bbc3ad10 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -618,9 +618,12 @@ eval:
                       name = name->car;
                     if (macro_p != 0)
                       {
+                        entry = cell_f;
+                        /* FIXME: dead code; no tests
                         entry = assq (name, g_macros);
                         if (entry == cell_f)
-                          macro_set_x (name, cell_f);
+                        */
+                        macro_set_x (name, entry);
                       }
                     else
                       {