Check-in [c951d6608a]
Overview
Comment:Corrected typo in previous commit
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c951d6608af8563eb9774a2cdf8e57c7a8e5c8d2
User & Date: rkeene on 2014-06-21 21:18:40
Other Links: manifest | tags
Context
2014-06-21
21:20
tcc4tcl 0.20 check-in: 7091d27bbd user: rkeene tags: trunk, 0.20
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

Modified tcc4tcl.tcl from [47b77bc722] to [f7535f5aaf].

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