Modified tcc4tcl.tcl from [3622379b6b] to [e17b60411a].

    48     48   			}
    49     49   
    50     50   			uplevel 1 [list ::tcc4tcl::_$cmd $handle {*}$args]
    51     51   		}]
    52     52   
    53     53   		return $handle
    54     54   	}
           55  +
           56  +	proc _linktclcommand {cSymbol tclCommand} {
           57  +		upvar #0 $handle state
           58  +
           59  +		lappend state(procs) $cSymbol $tclCommand
           60  +	}
    55     61   
    56     62   	proc _cproc {handle name adefs rtype {body "#"}} {
    57     63   		upvar #0 $handle state
    58     64   
    59     65   		set wrap [::tcc4tcl::wrap $name $adefs $rtype $body]
    60     66   
    61     67   		set wrapped [lindex $wrap 0]