From bd63d0e24c2cd4757001372d6b3cbb5d7b159680 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 16 Nov 2019 22:17:35 +0100
Subject: [PATCH] wip

---
 src/variable.c | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/src/variable.c b/src/variable.c
index 512ec4fb..e1ea9e09 100644
--- a/src/variable.c
+++ b/src/variable.c
@@ -45,32 +45,9 @@ flat_variable_ref (struct scm *var)
 struct scm *
 variable_set_x (struct scm *var, struct scm *value)
 {
-#if 0
   assert_variable (1, var);
   var->variable = value;
   return cell_unspecified;
-#else
-    if (g_debug > 0)
-    {
-      eputs ("variable-set!");
-      write_error_ (var);
-      eputs ("\n");
-    }
-  if (var->type == TPAIR)
-    {
-      struct scm *x = var->cdr;
-      if (x->type == TVARIABLE)
-        x->variable = value;
-      else
-        //set_cdr_x (var, value);
-        var->cdr = value;
-    }
-  else if (var->type == TVARIABLE)
-    var->variable = value;
-  else
-    assert_variable (1, var);
-  return cell_unspecified;
-#endif
 }
 
 struct scm *