Artifact 487c7f3b0398573c249b992c151d294a3792fdb7:

• File packages/flow/lib/routine.tcl — part of check-in [3470ff6e89] at 2018-06-26 06:06:14 on branch trunk — ycl shelf fix issue with object resolution in plugins

  flow gig rewrite to use {coro call}

  all tests pass

  flow step bring current with changes in ycl

  all tests pass

  (user: pooryorick size: 577)

#! /bin/env tclsh

package require {ycl flow step}

variable doc::configure [[namespace current] $ doc::configure]
dict set doc::configure args target [dict merge [
	dict get $doc::configure args target] {
		default {namespace tail $_}
		process {
			$_ $ target [uplevel [namespace which normalize] $target]}
	}
]

proc init {_ args} {
	uplevel 1 [list $_ .switch init {*}$args]
	return $_
}
.my .method init

proc exists {_ target} {
	expr {[info exists $target]}
}
.my .method exists

proc signature _ {
	namespace upvar $_ target target
	set target
}
.my .method signature