aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2015-12-30 17:37:24 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2015-12-30 17:37:24 -0800
commitee728813cc4976058f52817a37f51c57a00773d2 (patch)
tree472e5218dc304f22e1590bc8c15acc80860ff615 /src/interp
parent987aec7a21f7a9a706320badeeaffbbb4b5cb786 (diff)
downloadopen-axiom-ee728813cc4976058f52817a37f51c57a00773d2.tar.gz
Revert accidental modification causing FRAC miscompilation.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/functor.boot4
1 files changed, 1 insertions, 3 deletions
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