diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-16 21:35:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-16 21:35:55 +0000 |
| commit | 71e48772bf2d5d0f12b221b62f851eca77c2ae7d (patch) | |
| tree | f8538b4242d4e3ec77fbdd13f6f35951feae1d06 /src/interp | |
| parent | ed82a24534ef85fddfabadb3a3f9fca47ce63fda (diff) | |
| download | open-axiom-71e48772bf2d5d0f12b221b62f851eca77c2ae7d.tar.gz | |
Fix SF/1872564
* interp/compiler.boot (compPretend): Don't check for `new'
compiler semantics.
(compColonInside): Likewise.
* testsuite/compiler/1872564.spad: New.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 8915a10b..283b8868 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1147,8 +1147,6 @@ compPretend(["pretend",x,t],m,e) == e:= addDomain(t,e) T:= comp(x,t,e) or comp(x,$EmptyMode,e) or return nil if T.mode=t then warningMessage:= ["pretend",t," -- should replace by @"] - $newCompilerUnionFlag and opOf(T.mode) = 'Union and opOf(m) ^= 'Union => - stackSemanticError(["cannot pretend ",x," of mode ",T.mode," to mode ",m],nil) T:= [T.expr,t,T.env] T':= coerce(T,m) => (if warningMessage then stackWarning warningMessage; T') @@ -1161,10 +1159,6 @@ compColonInside(x,m,e,m') == if warningMessage then stackWarning warningMessage else - $newCompilerUnionFlag and opOf(m'') = 'Union => - return - stackSemanticError(["cannot pretend ",x," of mode ",m''," to mode ",m'],nil) - stackWarning [":",m'," -- should replace by pretend"] T' |