Diff

Differences From Artifact [49f61e4dc3]:

To Artifact [990ffbcf98]:


169
170
171
172
173
174
175



176


177
178
179
180
181
182
183
169
170
171
172
173
174
175
176
177
178

179
180
181
182
183
184
185
186
187







+
+
+
-
+
+







			if {$type == "Tcl_Interp*"} {
				continue
			}

			lappend args $var
		}

		if {[llength $adefs_c] == 0} {
			set adefs_c "void"
		} else {
		set adefs_c [join $adefs_c {, }]
			set adefs_c [join $adefs_c {, }]
		}

		# Determine how to return in failure
		if {$rtype != "void"} {
			if {[info exists returnErrorValue]} {
				set return_failure "return(${returnErrorValue})"
			} else {
				switch -- $rtype {