<html><head></head><body><div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;"><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">  > As far as I understand, in the latest version of the Oberon</pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">  > programming language no access to intermediate <span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">scopes is allowed. </pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">  > Haven't Niklaus Wirth updated the compiler accordingly or</pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">  > doesn't the disk image reflect the latest implementation</pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">  > of PO2013 or am I missing something else here?

</font></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif"><br></font></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">Only access to intermediate *variables* has been restricted in the</font></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><font size="2" face="courier new, courier, monaco, monospace, sans-serif">Oberon-7 language revision. T</font><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">his eliminated the need for a static</span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">link in implementations.</span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;"><br></span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">Access to </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">intermediate *constants* </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">declared in the surrounding scopes</span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">continues </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">to be </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">allowed in </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">Oberon-7 </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">(constants never used the static</span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">link anyway). </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">See the </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">guard </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">(y.class # ORB.Const) in </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">the last line</span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">of procedure </span><span style="font-family: "courier new", courier, monaco, monospace, sans-serif; font-size: small;">ORG.MakeItem. </span></pre><pre style="white-space: pre-wrap; color: rgb(0, 0, 0);"><br></pre></div></body></html>