diff options
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] => |