Branch: Tag:

1998-07-28

1998-07-28 23:02:43 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix for catch { return foo(); }

Rev: src/interpret.c:1.93
Rev: src/testsuite.in:1.118

1: - stest_true([["$Id: testsuite.in,v 1.117 1998/07/15 23:35:14 hubbe Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.118 1998/07/28 23:02:43 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
2302:   // - catch compile-errors   test_any([[ master()->set_inhibit_compile_errors(lambda(){});mixed res = catch{compile_string("dfasfqw123");};master()->set_inhibit_compile_errors(0); return arrayp(res); ]], 1)    + // catch + test_false([[class X { string test(string foo) { catch { return lower_case(foo); }; return foo; }}()->test(0); ]]) +    // - time   test_true(intp(time()))   test_true(intp(time(1)))