Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | [311e61d12a] Generate error code in *all* places where commands are looked up. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
990eed5c11736053b0db23ed241bc4a2 |
User & Date: | dkf 2014-06-16 09:24:39 |
Context
2014-06-16
| ||
12:19 | merge socket test from 8.5 check-in: 4c113631af user: dgp tags: trunk | |
09:24 | [311e61d12a] Generate error code in *all* places where commands are looked up. check-in: 990eed5c11 user: dkf tags: trunk | |
2014-06-15
| ||
16:50 | [cb042d294e] Improve consistency of [dict] wrong-args error messages. check-in: 968e9ac311 user: dkf tags: trunk | |
Changes
Changes to library/init.tcl.
︙ | ︙ | |||
394 395 396 397 398 399 400 | dict incr ::tcl::UnknownOptions -level return -options $::tcl::UnknownOptions $::tcl::UnknownResult } if {[llength $cmds]} { return -code error "ambiguous command name \"$name\": [lsort $cmds]" } } | > | | 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 | dict incr ::tcl::UnknownOptions -level return -options $::tcl::UnknownOptions $::tcl::UnknownResult } if {[llength $cmds]} { return -code error "ambiguous command name \"$name\": [lsort $cmds]" } } return -code error -errorcode [list TCL LOOKUP COMMAND $name] \ "invalid command name \"$name\"" } # auto_load -- # Checks a collection of library directories to see if a procedure # is defined in one of them. If so, it sources the appropriate # library file to create the procedure. Returns 1 if it successfully # loaded the procedure, 0 otherwise. |
︙ | ︙ |