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/interp/compiler.boot | 1 + 1 file changed, 1 insertion(+) (limited to 'src/interp') 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