Make destruction of altar incite its god's wrath

This is for completely destroying an altar with extra-powerful magical
digging -- the normal altar_wrath() punishment didn't seem sufficient
for such an outrage to me, so skip straight to slinging the lightning
bolts.  Destroying an altar is unlikely to happen by accident (though
it's possible with poorly timed usage of a drum of earthquake).

src/music.c

@@ -308,6 +308,7 @@ do_earthquake(int force)
                 if (cansee(x, y))
                     pline_The("%s altar falls%s.",
                               align_str(algn), into_a_chasm);
+                desecrate_altar(FALSE, algn);
                 goto do_pit;
             case GRAVE:
                 if (cansee(x, y))