diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-18 21:29:35 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-18 21:29:35 +1000 |
commit | 02762234a39759deed9c828ca32b1a87391da547 (patch) | |
tree | 2d887a9a1469ed4db0ff3264da30c43c0972234a | |
parent | 5e56e1547ceaa2ce77beac0317f72b9ebc945d0e (diff) | |
download | jimtcl-02762234a39759deed9c828ca32b1a87391da547.zip jimtcl-02762234a39759deed9c828ca32b1a87391da547.tar.gz jimtcl-02762234a39759deed9c828ca32b1a87391da547.tar.bz2 |
regtest: don't exit prematurely from test 32
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | regtest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regtest.tcl b/regtest.tcl index e64f3f5..a2a398f 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -230,7 +230,7 @@ puts "TEST 31 PASSED" proc a {} { tailcall b } proc b {} { return -code eval c } proc c {} {} -a +catch -eval a puts "TEST 32 PASSED" # TAKE THE FOLLOWING puts AS LAST LINE |