summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2017-03-14 21:09:27 (GMT)
committerKevin B Kenny <kennykb@acm.org>2017-03-14 21:09:27 (GMT)
commit5ddb691286f2aa5d37b524769d0267211527f155 (patch)
treeeeb60a02d9afcc8c42bd5bd244cd5d95598d9c54 /library/init.tcl
parentd4b614d6551e55fd6e1bb52a335e37657603f91c (diff)
downloadtcl-5ddb691286f2aa5d37b524769d0267211527f155.zip
tcl-5ddb691286f2aa5d37b524769d0267211527f155.tar.gz
tcl-5ddb691286f2aa5d37b524769d0267211527f155.tar.bz2
Make 'clock' and 'encoding' into proper compilable ensembles
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl11
1 files changed, 3 insertions, 8 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 9ca4514..a202054 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -169,13 +169,7 @@ if {[interp issafe]} {
namespace eval ::tcl::clock [list variable TclLibDir $::tcl_library]
- proc clock args {
- namespace eval ::tcl::clock [list namespace ensemble create -command \
- [uplevel 1 [list namespace origin [lindex [info level 0] 0]]] \
- -subcommands {
- add clicks format microseconds milliseconds scan seconds
- }]
-
+ proc ::tcl::initClock {} {
# Auto-loading stubs for 'clock.tcl'
foreach cmd {add format scan} {
@@ -186,8 +180,9 @@ if {[interp issafe]} {
}
}
- return [uplevel 1 [info level 0]]
+ rename ::tcl::initClock {}
}
+ ::tcl::initClock
}
# Conditionalize for presence of exec.