lev_comp parser update (U433)

diff --git a/sys/share/lev_yacc.c b/sys/share/lev_yacc.c
index 63a84c9055ca20f1042458e427eb7fd02a461879..44dcdc0bf5b952e862b377c6344a20ecfee1e8a4 100644 (file)
--- a/sys/share/lev_yacc.c
+++ b/sys/share/lev_yacc.c
@@ -1138,6 +1138,9 @@ case 11:
                            yyerror("Invalid background type.");
                        init_lev.smoothed = yyvsp[-6].i;
                        init_lev.joined = yyvsp[-4].i;
+                       if (init_lev.joined &&
+                           init_lev.fg != CORR && init_lev.fg != ROOM)
+                           yyerror("Invalid foreground type for joined map.");
                        init_lev.lit = yyvsp[-2].i;
                        init_lev.walled = yyvsp[0].i;
                        yyval.i = 1;