From ee728813cc4976058f52817a37f51c57a00773d2 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Wed, 30 Dec 2015 17:37:24 -0800
Subject: Revert accidental modification causing FRAC miscompilation.

---
 src/interp/functor.boot | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index ca2d3cb8..d49e242f 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -219,9 +219,7 @@ compCategories(db,u,e) ==
     -- There is no modemap property for these guys so do it by hand.
     [u.op, :[compCategories1(db,a,$SetCategory,e) for a in u.args]]
   u is ['SubDomain,D,.] => compCategories(db,D,e)
-  v :=
-    u.op = dbConstructor db => dbConstructorModemap db
-    get(u.op,'modemap,e)
+  v := get(u.op,'modemap,e)
   v isnt [.,:.] =>
     error ['"compCategories: could not get proper modemap for operator",u.op]
   if rest v then
-- 
cgit v1.2.3