diff options
author | sebres <sebres@users.sourceforge.net> | 2017-05-11 18:53:21 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-05-11 18:53:21 (GMT) |
commit | c7ee05b881b42a4e4e39bbe519714eea4af7beba (patch) | |
tree | 7871ca975e33745ffa98d6cc3746e915a61fce21 /library/init.tcl | |
parent | db083499bfff8aee794512e3da2f0ad2f201f6b0 (diff) | |
parent | 53c066e2314b0166a9fe30fd1f0026bb48f0d1f3 (diff) | |
download | tcl-c7ee05b881b42a4e4e39bbe519714eea4af7beba.zip tcl-c7ee05b881b42a4e4e39bbe519714eea4af7beba.tar.gz tcl-c7ee05b881b42a4e4e39bbe519714eea4af7beba.tar.bz2 |
merge trunk (to sebres-trunk-timerate)
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 fac1722..8a680f1 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -172,13 +172,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} { @@ -189,8 +183,9 @@ if {[interp issafe]} { } } - return [uplevel 1 [info level 0]] + rename ::tcl::initClock {} } + ::tcl::initClock } # Conditionalize for presence of exec. |