diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/fe/item.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/boot/fe/item.ml b/src/boot/fe/item.ml index 91a0c3dd..e9e0e62a 100644 --- a/src/boot/fe/item.ml +++ b/src/boot/fe/item.ml @@ -508,7 +508,11 @@ and parse_stmts (ps:pstate) : Ast.stmt array = let stmts = expand_tags_to_stmts ps item in spans ps stmts apos (Ast.STMT_decl decl) - | _ -> + | token -> + if token = SPAWN then + prerr_endline ("warning: \"spawn\" with unused result spawns a " ^ + "task that immediately dies"); + let (lstmts, lval) = ctxt "stmt: lval" parse_lval ps in let stmts = match peek ps with |