diff options
author | dos-reis <gdr@axiomatics.org> | 2010-04-08 08:43:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-04-08 08:43:08 +0000 |
commit | 4801946deb56530e2904c015dc80907614569373 (patch) | |
tree | fb0ee9be5bfc472afdd41b251076506e53d73bd6 /src/interp/modemap.boot | |
parent | b107db3eaba8069a8a47f2dc3f39b9858e954efa (diff) | |
download | open-axiom-4801946deb56530e2904c015dc80907614569373.tar.gz |
* algebra/boolean.spad.pamphlet (atoms$PropositionalFormula):
Rename from terms.
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 25172e4f..041289bf 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -63,9 +63,8 @@ addDomain(domain,e) == -- ??? we should probably augment $DummyFunctorNames with CATEGORY -- ??? so that we don't have to do this special check here. Investigate. isQuasiquote domain => e - if not isCategoryForm(domain,e) and - not member(name,'(Mapping CATEGORY)) then - unknownTypeError name + if not isCategoryForm(domain,e) and name ~= "Mapping" then + unknownTypeError name e --is not a functor domainMember(dom,domList) == or/[modeEqual(dom,d) for d in domList] |