Check-in [c951d6608a]
Tcl 2014 Conference, Portland/OR, US, Nov 10-14
Send your abstracts to tclconference@googlegroups.com by Sep 8.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Corrected typo in previous commit
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c951d6608af8563eb9774a2cdf8e57c7a8e5c8d2
User & Date: rkeene 2014-06-21 21:18:40
Context
2014-06-21
21:20
tcc4tcl 0.20 check-in: 7091d27bbd user: rkeene tags: trunk
21:18
Corrected typo in previous commit check-in: c951d6608a user: rkeene tags: trunk
21:17
Updated to give a useful error if an invalid subcommand is given check-in: d7b387c82f user: rkeene tags: trunk
Changes

Changes to tcc4tcl.tcl.

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
			if {$cmd == "code"} {
				set cmd "go"
				set args [list 1 {*}$args]
			}

			set callcmd ::tcc4tcl::_$cmd

			if {![info command $callcmd]} {
				return -code error "unknown or ambiguous subcommand \"$cmd\": must be cproc, linktclcommand, code, tk, or go"
			}

			uplevel 1 [list $callcmd $handle {*}$args]
		}]

		return $handle







|







46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
			if {$cmd == "code"} {
				set cmd "go"
				set args [list 1 {*}$args]
			}

			set callcmd ::tcc4tcl::_$cmd

			if {[info command $callcmd] == ""} {
				return -code error "unknown or ambiguous subcommand \"$cmd\": must be cproc, linktclcommand, code, tk, or go"
			}

			uplevel 1 [list $callcmd $handle {*}$args]
		}]

		return $handle