mrcalvin

# https://stackoverflow.com/questions/66201923/upvar-tcloo-and-next-explanation-of-perhaps-unexpected-behaviour
oo::class create C1 {
  variable aDict
  method addone {} {
    dict incr aDict xx
  }
  method getADict {} {
    return $aDict
  }
}

mrcalvin

package require Thread

namespace eval ::par {
  proc schedule {tp fh chunksize} {

    variable jobs
    variable done
    
    lassign [chan pipe] pr pw