Overview
Comment: | Corrected typo in previous commit |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
c951d6608af8563eb9774a2cdf8e57c7 |
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 46 if {$cmd == "code"} { 47 47 set cmd "go" 48 48 set args [list 1 {*}$args] 49 49 } 50 50 51 51 set callcmd ::tcc4tcl::_$cmd 52 52 53 - if {![info command $callcmd]} { 53 + if {[info command $callcmd] == ""} { 54 54 return -code error "unknown or ambiguous subcommand \"$cmd\": must be cproc, linktclcommand, code, tk, or go" 55 55 } 56 56 57 57 uplevel 1 [list $callcmd $handle {*}$args] 58 58 }] 59 59 60 60 return $handle