@@ -58,29 +58,29 @@
 		}]
 
 		return $handle
 	}
 
-	proc _linktclcommand {cSymbol tclCommand} {
+	proc _linktclcommand {handle cSymbol tclCommand} {
 		upvar #0 $handle state
 
 		lappend state(procs) $cSymbol $tclCommand
 	}
 
-	proc _add_include_path {args} {
+	proc _add_include_path {handle args} {
 		upvar #0 $handle state
 
 		lappend state(add_inc_path) {*}$args
 	}
 
-	proc _add_library_path {args} {
+	proc _add_library_path {handle args} {
 		upvar #0 $handle state
 
 		lappend state(add_lib_path) {*}$args
 	}
 
-	proc _add_library {args} {
+	proc _add_library {handle args} {
 		upvar #0 $handle state
 
 		lappend state(add_lib) {*}$args
 	}
 
@@ -108,10 +108,15 @@
 	proc _tk {handle} {
 		upvar #0 $handle state
 
 		set state(tk) 1
 	}
+
+	proc _delete {handle} {
+		rename $handle ""
+		unset $handle
+	}
 
 	proc _go {handle {outputOnly 0}} {
 		variable dir
 
 		upvar #0 $handle state