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 | |
| parent | d6212840afbadebd55736ae749545e0a7715f2d5 (diff) | |
| download | open-axiom-33949ff2e6e5b5abe8d22c5604f42a6c9371079a.tar.gz | |
* interp/compiler.boot (compColon): Literal flag types are valid
types.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/compiler.boot | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 469148c0..6daa63eb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-03-05 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/compiler.boot (compColon): Literal flag types are valid + types. + 2008-03-04 Gabriel Dos Reis <gdr@cs.tamu.edu> * algebra/Makefile.pamphlet (axiom_algebra_layer_strap): Derive 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] => |