@@ -1,8 +1,8 @@ #! /usr/bin/env tclsh -lappend auto_path __TMP__ +lappend auto_path [lindex $argv 0] package require tcc4tcl tcc4tcl::cproc test {int i} int { return(i+42); } tcc4tcl::cproc test1 {int i} int { return(i+42); } puts [test 1]