add exception error prelude.
@@ -404,7 +404,7 @@ pub fn eval<'a, 'b: 'a>(wam: &'a mut Machine, tl: &'b TopLevel) -> EvalSession<'
}
fn error_string(e: &String) -> String {
- format!("error: {}", e)
+ format!("error: exception thrown: {}", e)
}
pub fn print(wam: &mut Machine, result: EvalSession) {
