From 8c1294a56e47b81e5378e6211aa0bdbe53c53016 Mon Sep 17 00:00:00 2001
From: Enrico Lumetti <enrico.lumetti@gmail.com>
Date: Fri, 30 Apr 2021 19:55:59 +0200
Subject: [PATCH] Maybe unnecessary

---
 remove-complex-oper.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/remove-complex-oper.scm b/remove-complex-oper.scm
index 4d688fc..76f87d1 100644
--- a/remove-complex-oper.scm
+++ b/remove-complex-oper.scm
@@ -96,7 +96,7 @@
           (append assoc-list (list `(,var ,exp-tmp)))))
       (set! new-body
         (if (symbol? exp-tmp)
-          (if elide-tmp (substitute-var exp-tmp var new-body) new-body)
+          new-body ;(substitute-var exp-tmp var new-body) new-body)
           `(let ([,var ,exp-tmp]) ,new-body)))
       (values (wrap-associations assoc-list new-body)
               new-tmpcount))]))