diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-11-19 11:59:52 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-11-19 11:59:52 (GMT) |
| commit | 2eb0767336c873190979f8ab18ddd613b21af518 (patch) | |
| tree | d50e76c4cd5b94708ecf1601bfd1082b30e88304 /library/safe.tcl | |
| parent | 329f81f416510bcb86ba467b1fb8c6756156e5a2 (diff) | |
| download | tcl-2eb0767336c873190979f8ab18ddd613b21af518.zip tcl-2eb0767336c873190979f8ab18ddd613b21af518.tar.gz tcl-2eb0767336c873190979f8ab18ddd613b21af518.tar.bz2 | |
Undo Jan's needless vandalism.
Diffstat (limited to 'library/safe.tcl')
| -rw-r--r-- | library/safe.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 561659b..662a727 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: safe.tcl,v 1.32 2009/11/18 21:23:21 nijtmans Exp $ +# RCS: @(#) $Id: safe.tcl,v 1.33 2009/11/19 11:59:54 dkf Exp $ # # The implementation is based on namespaces. These naming conventions are @@ -194,7 +194,7 @@ proc ::safe::interpConfigure {args} { if { ![::tcl::OptProcArgGiven -statics] && ![::tcl::OptProcArgGiven -noStatics] - } { + } then { set statics $state(staticsok) } else { set statics [InterpStatics] @@ -202,7 +202,7 @@ proc ::safe::interpConfigure {args} { if { [::tcl::OptProcArgGiven -nested] || [::tcl::OptProcArgGiven -nestedLoadOk] - } { + } then { set nested [InterpNested] } else { set nested $state(nestedok) |