blob: ad4f7dfcc09c846ce602c8ebd48d0658e4104330 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
--- lib/config.tcl 2000-08-02 03:06:52.000000000 -0400
+++ lib/config.tcl 2016-06-05 14:51:18.000000000 -0400
@@ -52,6 +52,9 @@
set i [interp create -safe]
interp expose $i file
+ foreach subcommand {isdirectory exists dirname} {
+ interp alias $i ::tcl::file::$subcommand {} file $subcommand
+ }
|
