aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2015-12-30 22:20:00 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2015-12-30 22:20:00 -0800
commit5a0f02ce8f0040acec58c1c94961968b00c4bb8c (patch)
treec3cc6f954b1df6e1e3bb05c01b191587c804e731 /src/interp
parenta5676cf9d45c089a1f247c54e5f43309ca7aa2e4 (diff)
downloadopen-axiom-5a0f02ce8f0040acec58c1c94961968b00c4bb8c.tar.gz
compCategories: Use DB parameter for current constructor's modemap.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/functor.boot4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index d49e242f..9579defb 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -219,7 +219,9 @@ 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 := get(u.op,'modemap,e)
+ v :=
+ symbolEq?(u.op,dbConstructor db) => [dbConstructorModemap db]
+ get(u.op,'modemap,e)
v isnt [.,:.] =>
error ['"compCategories: could not get proper modemap for operator",u.op]
if rest v then