From 33949ff2e6e5b5abe8d22c5604f42a6c9371079a Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 5 Mar 2008 20:29:37 +0000 Subject: * interp/compiler.boot (compColon): Literal flag types are valid types. --- src/ChangeLog | 5 +++++ src/interp/compiler.boot | 1 + 2 files changed, 6 insertions(+) (limited to 'src') 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 + + * interp/compiler.boot (compColon): Literal flag types are valid + types. + 2008-03-04 Gabriel Dos Reis * 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] => -- cgit v1.2.3