summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-06-16 09:24:39 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-06-16 09:24:39 (GMT)
commit31c57051e72eb8b545de3e43ed6fd77d62db67f9 (patch)
treee0cbefb40e0eca1e299ca0c04c58721a89f5f83e /library/init.tcl
parent640e2ec713b76bb00fd43767bfd1171b07b69bde (diff)
downloadtcl-31c57051e72eb8b545de3e43ed6fd77d62db67f9.zip
tcl-31c57051e72eb8b545de3e43ed6fd77d62db67f9.tar.gz
tcl-31c57051e72eb8b545de3e43ed6fd77d62db67f9.tar.bz2
[311e61d12a] Generate error code in *all* places where commands are looked up.
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl3
1 files changed, 2 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl
index f63eedf..bb17319 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -398,7 +398,8 @@ proc unknown args {
return -code error "ambiguous command name \"$name\": [lsort $cmds]"
}
}
- return -code error "invalid command name \"$name\""
+ return -code error -errorcode [list TCL LOOKUP COMMAND $name] \
+ "invalid command name \"$name\""
}
# auto_load --