From bacb8e6b7995e242145871c8228cae4dbda7b891 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Mon, 19 Jul 2010 11:50:30 -0700 Subject: Missing semicolon in type.ml, plus test to catch regression. Closes #113. --- src/boot/me/type.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/boot') diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml index 14047f44..a631e58d 100644 --- a/src/boot/me/type.ml +++ b/src/boot/me/type.ml @@ -771,7 +771,7 @@ let check_stmt (cx:Semant.ctxt) : (fn_ctx -> Ast.stmt -> unit) = | Ast.STMT_ret (Some atom) -> if fn_ctx.fnctx_is_iter then Common.err None - "iterators can't return values; did you mean 'put'?" + "iterators can't return values; did you mean 'put'?"; demand fn_ctx.fnctx_return_type (check_atom atom) | Ast.STMT_ret None -> -- cgit v1.2.3