RosettaCodeData/Task/Exceptions/Aime/exceptions-1.aime

void
throwing(void)
{
    o_text("throwing...\n");
    error("now!");
}

void
catching(void)
{
    o_text("ready to catch\n");
    if (trap(throwing)) {
	o_text("caught!\n");
    } else {
	# nothing was thrown
    }
}

integer
main(void)
{
    catching();

    return 0;
}