diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-30 17:37:24 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-30 17:37:24 -0800 |
| commit | ee728813cc4976058f52817a37f51c57a00773d2 (patch) | |
| tree | 472e5218dc304f22e1590bc8c15acc80860ff615 | |
| parent | 987aec7a21f7a9a706320badeeaffbbb4b5cb786 (diff) | |
| download | open-axiom-ee728813cc4976058f52817a37f51c57a00773d2.tar.gz | |
Revert accidental modification causing FRAC miscompilation.
| -rw-r--r-- | src/interp/functor.boot | 4 |
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 |