path: root/contrib/tcl/tests/policies/policyA/policy.tcl

proc policyA_PolicyInit {slave {version {}}} {
    interp alias $slave tada {} tada $slave
}
proc tada {slave} {}