Tcl Source Code: Artifact [2858b388e5]

Artifact 2858b388e5a75212f86f34276a6609ba5542bf12:

Attachment "foo" to ticket [2971921fff] added by cyan 2010-03-17 19:48:50.

test error-22.1 {compiled try misses finally: Bug 2971921} -setup {
    proc _tmp-error-22.1 {} {
	try {
	    throw BAR {}
	} trap BAR {} {
	} finally {
	    return FOO
	}
    }
} -body {
    _tmp-error-22.1
} -cleanup {
    rename _tmp-error-22.1 {}
} -result FOO