diff options
author | dos-reis <gdr@axiomatics.org> | 2013-06-02 17:45:33 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-06-02 17:45:33 +0000 |
commit | 9e4be25a5ed7f3fc4f140c590272f9c70a719412 (patch) | |
tree | 458457545ee04eeec2e94d1e2c208db56dc68b98 /src/interp/define.boot | |
parent | 486d78fbea91e07509bc81249c44ae6014ef1d46 (diff) | |
download | open-axiom-9e4be25a5ed7f3fc4f140c590272f9c70a719412.tar.gz |
Tell compForMode not to be fussy when bootstrapping the algebra.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 9063a911..2da5243b 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -2538,6 +2538,12 @@ compJoin(["Join",:argl],m,e) == compForMode: (%Form,%Mode,%Env) -> %Maybe %Triple compForMode(x,m,e) == $compForModeIfTrue: local:= true + $bootStrapMode and m = $Category => + op := opOf x + ident? op and (db := constructorDB op) => + dbConstructorKind db = "category" => [x,m,e] + nil + comp(x,m,e) comp(x,m,e) makeCategoryForm(c,e) == |