From 125cb9fa6d95ea8aec14f4b37d212efdb3314361 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 22 Jun 2023 14:38:40 +0200
Subject: [PATCH] Remove useless code in CSE

* module/language/cps/cse.scm (eliminate-common-subexpressions-in-fun):
Defs must be a list.
---
 module/language/cps/cse.scm | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/module/language/cps/cse.scm b/module/language/cps/cse.scm
index d06f918f4..3382b9915 100644
--- a/module/language/cps/cse.scm
+++ b/module/language/cps/cse.scm
@@ -497,10 +497,6 @@ for a label, it isn't known to be constant at that label."
          (match term-key
            (('op arg ...)
             (match defs
-              (#f
-               ;; If the successor is a control-flow join, don't
-               ;; pretend to know the values of its defs.
-               #f)
               ((def) (add-def! (list 'op* arg* ...) aux) ...)))
            (_ (add-definitions . clauses))))
         ((add-definitions