<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">> On Sun Oct 22 10:43:29 CEST 2017 Tomas Kral wrote:</span></font><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">><br class=""></span></font><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">> </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">Yes, building `IO.Mod' resolved that. Actually, the error</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">> reported </span></font><span style="white-space: pre-wrap; font-family: monospace;" class="">really was "Call error: TestOberon0 module not</span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">> found", that confused me.</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">></span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class=""><br class=""></span></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">This is because there is a bug in procedure Modules.Load.</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">The global variable </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">“</span></font><span style="white-space: pre-wrap; font-family: monospace;" class="">Modules.importing"</span><span style="white-space: pre-wrap; font-family: monospace;" class=""> is not set </span><span style="white-space: pre-wrap; font-family: monospace;" class="">correctly</span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">in </span><span style="white-space: pre-wrap; font-family: monospace;" class="">some case cases. For example </span><span style="white-space: pre-wrap; font-family: monospace;" class="">if one attempts to </span><span style="white-space: pre-wrap; font-family: monospace;" class="">activate</span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">a </span><span style="white-space: pre-wrap; font-family: monospace;" class="">non-existing </span><span style="font-family: monospace; white-space: pre-wrap;" class="">command of an already loaded module, </span><span style="font-family: monospace; white-space: pre-wrap;" class="">e.g. if</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">you click on the </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">text “Oberon.None”, it will display </span></font><span style="white-space: pre-wrap; font-family: monospace;" class="">the</span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">error message “Call error: System command not found”.</span></div></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class=""><br class=""></span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">This bug can be fixed by inserting a single line as the</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">(new) </span><span style="font-family: monospace; white-space: pre-wrap;" class="">4th </span><span style="font-family: monospace; white-space: pre-wrap;" class="">last line of Modules.Load, as shown below:</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class=""><br class=""></span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class=""> </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">PROCEDURE Load*(name: ARRAY OF CHAR; VAR newmod: Module);</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> ....</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> BEGIN</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> ....</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> body (*initialize module*)</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> END</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> ELSE error(0, name) (*<---inserted*)</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> END ;</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> newmod := mod</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> END Load; </span></font><br class=""></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class=""><br class=""></span></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">There are a few additional issues with Modules.Load</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">that I have fixed some time ago. But they have not</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">yet been published on the Oberon web page. If</span></font></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">interested, </span><span style="font-family: monospace; white-space: pre-wrap;" class="">I can provide/publish the modified</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">version of </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">“</span></font><span style="font-family: monospace; white-space: pre-wrap;" class="">Modules" that fixes them all.</span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class=""><br class=""></span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">-AP</span></div><div class=""><br class=""></div></body></html>