diff options
author | sebres <sebres@users.sourceforge.net> | 2024-05-13 10:34:11 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2024-05-13 10:34:11 (GMT) |
commit | 07fcbc1b06c34e84caa0c3f63be1afd36425820f (patch) | |
tree | e701a2d81e38ab7f654efbcc6976e3028852ec25 /library | |
parent | fc316d4f32f34ca747f706b53db54903b91610b7 (diff) | |
download | tcl-07fcbc1b06c34e84caa0c3f63be1afd36425820f.zip tcl-07fcbc1b06c34e84caa0c3f63be1afd36425820f.tar.gz tcl-07fcbc1b06c34e84caa0c3f63be1afd36425820f.tar.bz2 |
interim fix for [9889f96f4da77e3b]: avoid lazy creation and compilation for clock-ensemble (unless the issue with line-number reset by recompile is solved)
Diffstat (limited to 'library')
-rw-r--r-- | library/init.tcl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/library/init.tcl b/library/init.tcl index f5d762c..da43bd4 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -101,17 +101,15 @@ if {[interp issafe]} { # Set up the 'clock' ensemble - proc clock args { + apply {{} { set cmdmap [dict create] foreach cmd {add clicks format microseconds milliseconds scan seconds} { dict set cmdmap $cmd ::tcl::clock::$cmd } namespace inscope ::tcl::clock [list namespace ensemble create -command \ - [uplevel 1 [list ::namespace origin [::lindex [info level 0] 0]]] \ - -map $cmdmap] + ::clock -map $cmdmap] ::tcl::unsupported::clock::configure -init-complete - uplevel 1 [info level 0] - } + }} } # Conditionalize for presence of exec. |