Diff
Not logged in

Differences From Artifact [68c13f40af]:

To Artifact [a7fc39bbae]:


432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
    # NOTE: Copy the package metadata into the fresh array variable,
    #       if necessary, marshalling it from native Tcl to Eagle.
    #
    if {[isEagle]} then {
      array set $newVarName [array get metadata]

      proc $newProcName(1) {} [info body [appendArgs \
          [namespace current] :: eagleHasSecurity]]

      proc $newProcName(2) {} [info body [appendArgs \
          [namespace current] :: tclMustBeReady]]

      return [eval $script(outer)]
    } else {
      eagleMustBeReady

      eagle [list array set $newVarName [array get metadata]]

      eagle [list proc $newProcName(1) {} [info body [appendArgs \
          [namespace current] :: eagleHasSecurity]]]

      eagle [list proc $newProcName(2) {} [info body [appendArgs \
          [namespace current] :: tclMustBeReady]]]

      return [eagle $script(outer)]
    }
  }

  proc setupPackageUnknownHandler {} {
    variable autoHook







|


|








|


|







432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
    # NOTE: Copy the package metadata into the fresh array variable,
    #       if necessary, marshalling it from native Tcl to Eagle.
    #
    if {[isEagle]} then {
      array set $newVarName [array get metadata]

      proc $newProcName(1) {} [info body [appendArgs \
          [namespace current] ::eagleHasSecurity]]

      proc $newProcName(2) {} [info body [appendArgs \
          [namespace current] ::tclMustBeReady]]

      return [eval $script(outer)]
    } else {
      eagleMustBeReady

      eagle [list array set $newVarName [array get metadata]]

      eagle [list proc $newProcName(1) {} [info body [appendArgs \
          [namespace current] ::eagleHasSecurity]]]

      eagle [list proc $newProcName(2) {} [info body [appendArgs \
          [namespace current] ::tclMustBeReady]]]

      return [eagle $script(outer)]
    }
  }

  proc setupPackageUnknownHandler {} {
    variable autoHook