D 2011-11-21T18:28:25.309 T +comment 51f9d8af1041fead7e5e896e16f2704c7d257a06 Fix\sa\sbug\swhere\sglobal\sprecompiled\scode\s(A)\scalled\sfrom\sa\sprecompiled\r\nprocedure\scauses\sthe\score\sto\srecompile\s(A),\striggering\sthe\strap\slaid\r\ninside,\si.e.\s'error\s"called\sa\scopy\sof\scompiled\scode"'.\r\n\r\n
Example\r\n----------------------ex1.tcl\r\nproc\sinit\s{}\s{\r\n\s\s\s\ssource\sex2.tcl\r\n}\r\ninit\r\n----------------------ex2.tcl\r\nputs\sa\r\n----------------------
\r\n\r\nWhen\srun\sas\sprecompiled\scode\sthe\s'puts\sa'\sis\snot\sexecuted,\sonly\sthe\strap.\r\n\r\nFixed\sby\senclosing\sthe\soffending\scode\sinto\sa\sguard\swhich\sprevents\sits\r\nexecution\sfor\sprecompiled\scode.\sThe\schange\spasses\sthe\sentire\stestsuite.\r\n U aku Z c454318f26c2a4e9b610de33e7a4435e