gistfile1.txt

func map(xs, f)
throw from f
{
    let mutable result := list(); // exception thrown here is not OK
    for x in xs { // exception thrown here is not OK
        result := result :+ // exception thrown here is not OK
            f(x); // exception thrown here is OK
    } // exception thrown here is not OK
    result; // exception thrown here is not OK
}