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.362 |
| 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 |
if {$cmd == "code"} {
set cmd "go"
set args [list 1 {*}$args]
}
set callcmd ::tcc4tcl::_$cmd
| | | 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
|
| ︙ | ︙ |