diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-08-26 09:23:03 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-09-01 09:01:15 +1000 |
| commit | 52c8b8b6adba1e32b460d44cb0a716db9fda69bc (patch) | |
| tree | 4f882baf7ca1bac403389f12112d3406dc890975 /tcltest.tcl | |
| parent | 9b746a28ddeaab0610c423b4426bb6f18b72c515 (diff) | |
| download | jimtcl-52c8b8b6adba1e32b460d44cb0a716db9fda69bc.zip jimtcl-52c8b8b6adba1e32b460d44cb0a716db9fda69bc.tar.gz jimtcl-52c8b8b6adba1e32b460d44cb0a716db9fda69bc.tar.bz2 | |
Support lambda even if references are disabled
It's convenient to support a non-gc lambda, even if references
are disabled.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tcltest.tcl')
| -rw-r--r-- | tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index b98164a..b7e3983 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -166,7 +166,7 @@ proc testConstraint {constraint {bool {}}} { } testConstraint {utf8} [expr {[string length "\xc2\xb5"] == 1}] -testConstraint {references} [expr {[info commands ref] ne ""}] +testConstraint {references} [expr {[info commands getref] ne ""}] testConstraint {jim} 1 testConstraint {tcl} 0 |