From 45c66ff4a930d68142472091c3ccc36c755b1f6e Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Mon, 1 Feb 2016 16:00:07 -0800
Subject: Remove dead code in compFunctorBody

---
 src/interp/define.boot | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 3218e285..8f4cb615 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1593,10 +1593,6 @@ compFunctorBody(db,body,m,e) ==
     $insideCategoryPackageIfTrue => dbCapsuleIR db
     not $optExportedFunctionReference => dbCapsuleIR db
     foldExportedFunctionReferences(db,dbCapsuleIR db)
-  body is [op,:.] and op in '(add CAPSULE) => T
-  $NRTaddForm :=
-    body is ["SubDomain",domainForm,predicate] => domainForm
-    body
   T
  
 reportOnFunctorCompilation() ==
-- 
cgit v1.2.3