diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-17 12:51:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-17 12:51:53 (GMT) |
| commit | aa3b9b49e082cbda4500eba60787a80c9cfd64e2 (patch) | |
| tree | f67519530b2ee952335022154250f726972d334b /library | |
| parent | ba078102bb35ae671db5adb952ee48ecef4003ed (diff) | |
| parent | f2882138fdb10093e33cbe23ad4eb5dea4461e6a (diff) | |
| download | tcl-aa3b9b49e082cbda4500eba60787a80c9cfd64e2.zip tcl-aa3b9b49e082cbda4500eba60787a80c9cfd64e2.tar.gz tcl-aa3b9b49e082cbda4500eba60787a80c9cfd64e2.tar.bz2 | |
merge 8.6
Diffstat (limited to 'library')
| -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 0437412..471a9d8 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. |