diff options
author | Kevin B Kenny <kennykb@acm.org> | 2017-03-14 21:09:27 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2017-03-14 21:09:27 (GMT) |
commit | 5ddb691286f2aa5d37b524769d0267211527f155 (patch) | |
tree | eeb60a02d9afcc8c42bd5bd244cd5d95598d9c54 /library/init.tcl | |
parent | d4b614d6551e55fd6e1bb52a335e37657603f91c (diff) | |
download | tcl-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.tcl | 11 |
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. |