do_look at warning co-located with boulder

This does not fix a reported bug where you
can't attack a hidden creature that is
co-located with a boulder, but it might
assist the player in understanding what is
going on.

src/pager.c

@@ -642,6 +642,10 @@ do_look(quick)
 		} else {
 			found += append_str(out_str, def_warnsyms[i].explanation);
 		}
+		/* Kludge: warning trumps boulders on the display.
+		   Reveal the boulder too or player can get confused */
+		if (sobj_at(BOULDER, cc.x, cc.y))
+			Strcat(out_str, " co-located with a boulder");
 		break;	/* out of for loop*/
 	    }
 	}