Diff
Not logged in

Differences From Artifact [7763fef79c]:

To Artifact [8888379407]:


356
357
358
359
360
361
362
363

364
365
366
367
368
369
370
371


372
373
374
375
376
377
378
356
357
358
359
360
361
362

363
364
365
366
367
368
369


370
371
372
373
374
375
376
377
378







-
+






-
-
+
+







              switch -exact -- ${%metadata%(language)} {
                "" -
                Eagle {
                  #
                  # NOTE: The target language is Eagle, which is evaluating
                  #       this script.  No special handling is needed here.
                  #
                  return [uplevel 1 $script(inner)]
                  return [uplevel #0 $script(inner)]
                }
                Tcl {
                  #
                  # NOTE: The target language is Tcl; therefore, a bit of
                  #       special handling is needed here.
                  #
                  {%tclMustBeReady%}; return [tcl eval \
                      [tcl master] $script(inner)]
                  {%tclMustBeReady%}; return [tcl eval [tcl master] [list \
                      uplevel #0 $script(inner)]]
                }
                default {
                  error "unsupported language"
                }
              }
            } finally {
              #