Exceptions: Difference between revisions
→{{header|Tcl}}
(Added Wren) |
|||
Line 3,214:
invoked from within
"f"</pre>
=={{header|Transd}}==
<lang scheme>#lang transd
mainModule : {
func2: (lambda i Int()
(if (!= i 13)
(textout "OK " i "\n")
(throw "fail\n"))),
func1: (lambda
(textout "before try\n")
(try
(textout "before while\n")
(with n 10
(while (< n 15) (+= n 1)
(func2 n)
)
)
(textout "after while\n")
(catch (report e))
)
(textout "after try\n")
),
_start: (lambda (func1))
}
</lang>
OUTPUT:
---------------
<pre>
before try
before while
OK 10
OK 11
OK 12
fail
after try</pre>
=={{header|TXR}}==
| |||