Artifact b7bd9cb92278226e97b387df23ac7f05bed48afa:

• File packages/chan/lib/prototype.vso.tcl — part of check-in [c16d507301] at 2015-12-29 07:59:48 on branch trunk — global search replace {colons in package names} Some other code changes (user: pooryorick size: 613)

#! /bin/env tclsh

package require {ycl iter}
package require {ycl proc}
namespace import [yclprefix]::chan::prototype
package require {ycl vso}
namespace import [yclprefix]::route

rename [namespace current] {}
[yclprefix] proc alias [namespace current] [[yclprefix] vso eval {namespace which universe}]

[namespace current] class chan {}
[namespace current] class chan iter 

apply [list {} {
	foreach name {write more iter} {
		#namespace import [yclprefix]::chan::prototype::$name
		[namespace current] route $name chan [namespace current]::$name
	}
} [namespace current]]

prototype new [namespace current]