summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl8
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.