diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -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' |