diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-05 20:29:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-05 20:29:37 +0000 |
| commit | 33949ff2e6e5b5abe8d22c5604f42a6c9371079a (patch) | |
| tree | 1bfdde8f8c45d5f2a1785e01d4ccbdc009888c4c /src/interp | |
| parent | d6212840afbadebd55736ae749545e0a7715f2d5 (diff) | |
| download | open-axiom-33949ff2e6e5b5abe8d22c5604f42a6c9371079a.tar.gz | |
* interp/compiler.boot (compColon): Literal flag types are valid
types.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index a215cbf9..06f332da 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1185,6 +1185,7 @@ compColon([":",f,t],m,e) == (if not member(t,getDomainsInScope e) then e:= addDomain(t,e); t) isDomainForm(t,e) or isCategoryForm(t,e) => t t is ["Mapping",m',:r] => t + STRINGP t => t -- literal flag types are OK unknownTypeError t t f is ["LISTOF",:l] => |