Artifact 0497e54853ae750be944eb308b541075690adbab:

• File packages/ycl/lib/ycl.tcl — part of check-in [ceac345aa0] at 2015-03-10 04:38:36 on branch trunk — Add features to file::fputs. ns::dupensemble now deletes an existing target ensemble. Add ns::split Move ycl::yclprefix out of pkgIndex and into its own file. (user: pooryorick size: 533)

#! /bin/env tclsh

proc cmd args {
	set args [lassign $args[set args {}] pkg]
	package require [list ycl {*}$pkg]
	set res [[yclprefix] {*}${pkg} {*}$args]
	if {$res ne {}} {
		puts $res
	}
}

### compatibility ###

variable yclpath [file normalize [file dirname [info script]]] 

if {[namespace which ::tailcall] eq {}} {
	namespace eval [yclprefix]::tailcall {
		source [file join $yclpath/../../tailcall/lib/tailcall.tcl]
		namespace export {[a-z]*}
	}
	namespace eval :: {
		namespace import [yclprefix]::tailcall::tailcall
	}
}