summaryrefslogtreecommitdiffstats
path: root/library
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)
commit35636070b1b86333cfcb193a660c872f1382132a (patch)
treeeeb60a02d9afcc8c42bd5bd244cd5d95598d9c54 /library
parente7d7d95f9f17dbfe2200ba4983280d293bff4ba2 (diff)
downloadtcl-35636070b1b86333cfcb193a660c872f1382132a.zip
tcl-35636070b1b86333cfcb193a660c872f1382132a.tar.gz
tcl-35636070b1b86333cfcb193a660c872f1382132a.tar.bz2
Make 'clock' and 'encoding' into proper compilable ensembles
Diffstat (limited to 'library')
-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.