diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-09 03:45:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-09 03:45:16 +0000 |
commit | 5663732162b1010ab0b506c87f576f2b78c27994 (patch) | |
tree | ddcf9a0c351b766b434dc20789821b10b79c45a7 /src/interp | |
parent | f4d8fd485a9486cb3bf1631dded5c72de055dfaf (diff) | |
download | open-axiom-5663732162b1010ab0b506c87f576f2b78c27994.tar.gz |
* interp/sys-constants.boot ($PrimitiveDomainNames): Remove.
* interp/category.boot (mkCategory): Drop test for primitive
domains.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/category.boot | 3 | ||||
-rw-r--r-- | src/interp/sys-constants.boot | 13 |
2 files changed, 1 insertions, 15 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot index ee5ab065..eb7c5da8 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -116,9 +116,6 @@ mkCategory(domainOrPackage,sigList,attList,domList,PrincipalAncestor) == v is '$ => nil string? v => nil atom v => [v] - MEMQ(v.op,$PrimitiveDomainNames) => nil - --This variable is set in INIT LISP - --It is a list of all the domains that we need not cache v.op is 'Union => "union"/[Prepare2 x for x in stripUnionTags v.args] v.op is 'Mapping => "union"/[Prepare2 x for x in v.args] diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index e113f4fe..45f747d5 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- Copyright (C) 2007-2011, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -557,17 +557,6 @@ $LangSupportTypes == $NonMentionableDomainNames == '($ Rep Record Union Mapping Enumeration) - -++ List of primitive domains -$PrimitiveDomainNames == - '(List _ - Integer _ - NonNegativeInteger _ - PositiveInteger _ - SingleInteger _ - String _ - Boolean) - ++ These symbols are not constructor names, but they define domains. $SpecialDomainNames == '(add _ |